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INTRODUCTION 


The Advanced Graphing II System Manual is designed to be used with 
the User Manual. Page and section numbering follows that of the 
User Manual. The following ten sections of this manual describe 
the internal subroutines along with other useful information for 
the system programmer who may need to reduce the size of the pack¬ 
age or deal with the fundamentals of the package in any other way. 

Sections 5 and 6 contain general system information concerning 
COMMON Table Reference and flow chart description. Sections 7 
through 12 contain descriptions of algorithms and internal subrou¬ 
tines. Section 13 contains information necessary to "prune down" 
the size of the package. Section 14 contains user written subrou¬ 
tines and functions. 

Using the Advanced Graphing II User Sections and System Sections 
in conjunction, the programmer should have a complete view of the 
package. 



SECTION 5 


COMMON TABLE REFEfiENCE 

The Advanced Graphing II Package centers around the use of a COMMON 
Table which contains all the variables necessary to display a graph 
complete with axes, labeled tic marks, grid, and remote exponent where 
necessary. It also includes variables to specify the window position, 
the type of line (solid, dashed, etc.), data point symbols, and increments 
between data points or symbols. These variables are real values, and are 
initialized by BINITT to reasonable default values. 

Basically, the COMMON Table is divided into three major sections which 
can be accessed by the general user: 

1. Curve setting variables which are located with the COMMON Section 
Pointer IBASEC. 

2. X-Axis variables which are located with the COMMON Section Pointer 
IBASEX. 

3. Y-Axis variables which are located with the COMMON Section Pointer 
IBASEY. 

In addition to these sections which are defined in the User's sections 
a group of internal variables at the beginning of the table define the 
extent of COMMON and the extent of each major section, and the vector 
variables define the starting points of the sections. 

All access to the global COMMON Table is via a group of intermediate 
functions and subroutines which are individually described in Section 4.4. 

Two advantages are inherent in this structure: 

1. The code written to compute axis information may be 
axis independent since the variables necessary for 
each axis and their locations within the respective 
sections are the same. The variable pointer NBASE is 
used in the code to refer to either IBASEX or IBASEY, 
depending on which axis is being computed. 

2. The Table may be expanded without altering every routine. 

Only the extent of the expanded section need be changed; 
the locations of the old variables within the section 
remain the same. 

The structure of the COMMON Table is shown in Figure 1. The 
variables in COMMON are listed in the chart in Figure 2, followed 
by codes which refer to the descriptions on pages 5-5 through 5-9. 
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THE STRUCTURE: 


THE REASONS: 



1. AXIS-INDEPENDENT CODE - 
Cuts the number of routines 
nearly in half. 


2. Table may be expanded without 
altering every routine. 


Structure of AG-11 COMMON 


Figure 1 
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The following chart provides a quick guide to determine which 
subroutines reference which variables in COMMON. 

All COMMON variables are shown vertically and COMMON referencing 
subroutines horizontally. The code numbers in the grid correspond 
to numbered comments on the following pages. 

The comments are numbered so that all comments referring to a given 
subroutine appear contiguously. 
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1. CSYMBL indicates the type of bar shading for vertical or horizontal 
Bar charts. See Bar Chart samples in Section 2.8, pages 38, 39, 


2 . CSIZES is the width of the Bar in raster units. 

3. The bar charting routine uses CSIZEL to obtain the distance 
between shading marks in raster units. 

4. BAR uses the screen min and max as limits for drawing bar chart bars. 

5. The NEAT Flag indicates whether 'neat' tics are calculated in LOPTIM 
or COPTIM. 

6. COPTIM and LOPTIM require the label type to establish neat tic mark 
intervals. 

7. COPTIM and LOPTIM require the density factor to compute the tic 
interval. 

8. LOPTIM and COPTIM determine the number of major tic mark intervals 
if they are not already set by the user. 

9. LOPTIM and COPTIM require the data min and max to compute the tic 
mark interval. If neat tics are specified, the min and max may be 
rounded outward. 

10. LOPTIM and COPTIM require the screen min and max to compute the 
length of the tic mark intervals. 

11. COPTIM. If the label type is not specified, the transformation 
type determines the label type. 

12. The routine LOPTIM or COPTIM determines and enters the position of 
the least significant digit of the labels. 

13. LOPTIM or COPTIM sets the min and max values of the tic mark labels 
for each axis. 

14 . CLINE specifies the type of line (dashed, solid, bar) which CPLOT 
is to draw in plotting the curve. 

15. CPLOT accesses CSYMBL which indicates the type of plotting symbol 
for each plotted point. 

16. CPLOT accesses CSTEPS which indicates the frequency of symbols on a 
plot. 

17. Machine infinity is required in CPLOT to distinguish "missing data" 
data points. If a data value equals infinity, the data value is 

to be skipped and a space left for it. 

18. CNPTS indicates the number of points in a non-standard array. This 
information is required by CPLOT, MNMX, and RGCHEK. 
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19. CSTEPL indicates the frequency of points plotted. 

1 indicates that every point is plotted; 2 indicates every other 
point, etc. 

20. CXDEC or CYDEC indicates the number of decimal places to appear in the tic 
mark labels. Label width and label scale factor are compiled and 

set by LWIDTH and may be re-initialized for the appropriate axis by 
DINITX or DINITY. 

21. The data min and max for an axis are reset to zero by DINITX or 
DINITY. 

22. The data min and max may be set by DLIMX or DLIMY. 

23. EXPOUT checks TYPE for logarithmic axes if logarithmic tic mark 
labels are generated without the X (multiplier sign). 

24. EXPOUT requires the type of remote exponent to set up 
and produce the remote labels. 

25. FRAME requires the screen min and max to draw a bar around the 
data window. 

26. LABEL and GLINE require the label type in order to select the 
proper label for the axis. 

27. GLINE inserts grid lines or tic marks for month labels where they 
actually appear on the number line (they vary in width according 

to the number of days in the month), and so requires the end points 
of the tic marks. 

28. GRID requires the location of each axis for drawing the axis and 
tic marks. 

29. GRID requires the number of tic intervals in order to form the grid. 

30. The tic mark length and form are required by GRID to draw the grid 
and TSET to compute the end points of the grid lines. 

31. GRID requires the screen min and max in order to draw the grid 
lines and axis lines. 

32. GRID obtains the calculated end points for the major and minor 
tic marks from these locations. 

33. HBARST sets CLINE to 3 to indicate horizontal bar chart to CPLOT. 

34. HBARST and VBARST. The vertical and horizontal bar chart set up 
involves checking the tic mark form to prevent grid lines from 
running the length of the bars. If the form is such that this 
would occur, it is changed. 

35. Machine infinity is required in LABEL to set linear and log mod 
function values. 


@ 
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36. LABEL requires the axis location for label placement. 

37. To position the tic mark labels, LABEL requires the number of 
tic intervals. 

38. The length of the tic marks is required in LABEL to space the 
tic mark labels properly. 

39. To position the labels, LABEL requires the screen min and max. 

40. LABEL requires the width, scale factor, step frequency, stagger 
flag and type of remote exponent for building the labels. 

41. LABEL obtains the calculated label min and max and calculates the 
tic labels from these values. 

42. If the axis is logarithmic and the number of minor tic marks is set 
at -1 by LOPTIM, LOGTIX produces minor tic marks on a logarithmic 
decade. If the number of minor tics is set to -2 , the logarithmic 
minor tics are drawn along with numbers from 2-9 if there is room. 

See examples on page 35 of the User's Manual. 

43. Machine infinity is required in LOPTIM to establish a minimum log 
value if the minimum is set to zero. 

44. LOPTIM sets the number of minor tic intervals if not set by the 
user. See #34 above for exception for logarithmic minor tics. 

45. LWIDTH determines the maximum width of the tic labels based on the 
least significant digit (and axis scale factor), and using the data 
min and max. 

46. To recognize and exclude "missing data" points, MNMX needs machine 
infinity. 

47. NUMSET. Numeric label string building requires the number of 
decimal places to form the tic label string. 

48. NUMSET requires the transformation type to determine if exponential 
labels are to be generated. 

49. OPTIM determines which routine to call (LOPTIM or COPTIM) based on 
the transformation type. 

50. PLACE sets the screen min and max. 

51. REMLAB, the remote label routine, uses the data min and max to create 
remote labels for calendar data. 

52. REMLAB requires the axis scale factor for generation of the remote label. 

53. Machine infinity is required by RGCHEK to establish starting points 
for the min/max searches. 
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54. RGCHEK checks for zero suppression before setting the range. 

55. RGCHEK checks the values of the data min and max, and if they are 
equal, assumes they have not been set. It then calls the appropriate 
min/max routine to find the min and max and sets the min and max 

in COMMON. 

56. TYPE helps RGCHEK to determine which MIN/MAX routine to call. 

57. The data min and max and screen min and max are required by SETWIN 
to establish the data space and screen window. 

58. SETWIN. The transformation TYPE is required in setting the data 
to screen transformation. 

59. SLIMX and SLIMY are the primary methods of directly setting the 
screen window. 

60. The label type governs the width of labels for month and day labels 
in SPREAD and WIDTH. 

61. The density factor offsets the space between labels controlled by 
SPREAD. 

62. SPREAD requires the number of tic intervals to compute the label 
spacing and determine the frequency of labels. 

63. SPREAD requires the screen min/max to check inter-label spacing. 

64. SPREAD requires the maximum label width in determining inter-label 
spacing. This width may be changed in SPREAD if the label type is 
days or months which can be reduced to 3 meaningful characters. 

65. SPREAD sets the label step frequency and the stagger flag if the 
labels are too wide for the space available. 

66. CSIZES is a scale factor for the symbol size of software plotting 
symbols (TEKSYM). 

67. TSET sets up the tic mark end points according to the axis location 
and screen min and max. 

68. TSET computes the end point locations of the tic marks and sets 
these values into the table. 

69. TYPCK decodes calendar form arrays and establishes the transformation 
type. 

70. VBARST sets CLINE to 2 to indicate vertical bar charts to CPLOT. 

71. WIDTH specifies the maximum tic label width, or calls LWIDTH which 
determines this value if linear numeric labels are required. 
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72. If the tic mark labels for log axes are specified as numbers expressed 
in words such as TEN or ONE HUNDRED, WIDTH sets the step to 1 and the 
stagger to 2 (2 levels). If this is done, SPREAD is not called by 
CHECK. 

73. WIDTH requires the type of remote exponent to compute the label 
width if the axis is logarithmic. 
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SECTION 6 


SYSTEM DESCRIPTION 

The A6-II System subroutines may be divided into two distinct 
groups - Table checking and display. The checking subroutines, 
controlled by CHECK, do not produce output to the screen. This 
general description of the system should be read with reference 

to the System Diagram in Appendix C. 

6.1 Table Checking 

CHECK accesses the COMMON Table with one of the axis pointers 
(IBASEC, IBASEX, or IBASEY) to see if it has been initialized 
by BINITT and controls the other Table Checking routines. If 
BINITT has not been called, CHECK calls it along with ERREC 
which issues an error message. Any Table setting calls which 
have been made previously will be nullified by the subsequent call 
to BINITT. 

CHECK next calls TYPCK. If the data type is calendar 
form, TYPCK decodes the array to determine the actual transfor¬ 
mation (days, months, years, etc.) If the type is not 
calendar, TYPCK takes no action, and control returns to CHECK. 

RGCHEK is called next and in turn calls MNMX if the data 
limits have not been set previously. If a calendar axis has 
been specified, control is further passed to CMNMX. MNMX is 
called once for each axis and is passed the array name for that 
axis. UMNMX is a dummy, user specifiable routine, which will 
calculate and find a user defined minimum and maximum if the 
user generates his own data points with UPOINT (see page 281 
of this manual). If the user has written his own UPOINT 
routine, he must either provide his own UMNMX routine to 
determine the data minimum and maximum or call DLIMX and/or 
DLIMY prior to calling CHECK. 

After RGCHEK has set the data minimum and maximum and entered 
them into the Table, OPTIM is called. OPTIM determines from the 
transformation type (CXTYPE and CYTYPE) which of the two grid 
resolving routines are to be used - COPTIM for calendar axes or 
LOPTIM for linear or logarithmic axes. 

COPTIM calls CALCON which converts the data minimum and maximum 
from UBGC days to the label type specified. (Calendar data 
minimum and maximum are always in UBGC days, regardless of 
whether data is in days, weeks, periods, months, or years.) 

The label type will be same as the data type if not otherwise 
specified. For example, if data is monthly, labels will be 
monthly. 

COPTIM uses predefined neat label units to round to neat 
intervals if specified. It also adjusts the grid so that the 
screen limits don't greatly exceed the data limits. 
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CALCON may be called for either of two purposes: 


1. If parameter GET is true, CALCON converts from 
UBGC to label type. (The UBGC, or Universal 
Business Graphing calendar, is described in 
Section 4.3. 

2. If GET is false, CALCON converts from the label 
type to UBGC. 

Once CALCON converts the UBGC minimum and maximum to the neatly 
rounded calendar intervals, it is called a second time to 
convert these updated calendar intervals back into UBGC days. 

These values are the UBGC min/max of the plotting window. 

FINDGE is a function used by both the OPTIM routines (COPTIM 
and LOPTIM) in the neat algorithm process. See page 200 for 
a detailed description of the neat algorithm. 

Functions ROUNDU and POUNDD are also used in the neat algorithm. 

If the data is not calendar data, LOPTIM is called. LOPTIM is 
approximately comparable to COPTIM. It computes an ideal tic 
mark interval size based on the density factor which may be set 

by the user. (See Section 3.2.5) If neat tic mark intervals are 
desired, it then expands the range to meet neat tic mark require¬ 
ments. After execution of LOPTIM or COPTIM, the minimum and maxi¬ 
mum values of the axis labels are available and stored in the Tablej 
in a position not normally accessed by the user. This saves the 
recomputation of the labels during the display sequence. 


Next, CHECK calls WIDTH to determine the maximum width of each 
tic mark label. This process is somewhat more complicated for 
a linear axis than it is for a calendar axis. LWIDTH is called 
by WIDTH to determine the maximum width of conventional arithmetic 
labels. Depending on the scale factor and the axis, LWIDTH 
determines the number of digits, including the decimal point, 
to be used for a label. 

SPREAD uses the information from WIDTH and OPTIM to determine 
the amount of space between the labels on the axis line. This 
is most important for the X axis, but is also important if there 
is not room on the Y axis for the height of the letters. On 
the X axis labels may be staggered; on the Y axis alternate 
labels will be omitted if there is not room. 

Alphanumeric calendar labels use the same stagger procedure. 

If labels are still too long, they are shortened to three 
character abbreviations. 


(a) 
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TSET establishes the end points of the major and minor tic 
marks. It works in conjunction with TSET2 in determining 
these values and placing them in the Table. 

If only the screen location is altered following the first 
calls to CHECK and DSPLAY, TSET may be called instead of 
CHECK to update the Table. 
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6.2 Display Group 


Four primary routines, SETWIN, CPLOT, GRID, and LABEL display 
the plots. CPLOT and GRID are called once, and LABEL is 
called twice - once for each axis. 

SETWIN 


Initially, SETWIN sets the transformation from virtual space 
to screen coordinates. 

CPLOT 


CPLOT is the actual curve plotting routine. It decodes all 
possible combinations of array types with the subroutine 
KEYSET. Data points are retrieved by DATGET which uses the 
user defined UPOINT, if necessary, or CALPNT which decodes 
calendar arrays into UBGC plot points. These routines supply 
the information for one data point location at a time. 

CPLOT calls BAR if bar charts are used. BAR then calls 
FILBOX which draws the rectangular box and fills it with 
shading if specified. 

BSYMS is a service routine which plots a symbol at a given 
location. CPLOT moves to a data point and calls BSYMS 
which draws the symbol at the current screen location. Routine 
TEKSYM supplies an assortment of software generated symbols. 
SOFTEK is a dummy which serves as an interface for the PLOT-10 
Character Generation System. USYM is a user generated symbol 
plotting routine which serves as a user hook. 

GRID 


GRID retrieves the beginning and ending tic mark locations 
and draws the grid lines. For logarithmic axes with major 
tic marks of one decade, minor logarithmic tic marks may be 
inserted and labeled from 2 to 9 if there is room. LOGTIX 
performs this logarithmic tic mark operation. 

LABEL 


LABEL generates the major tic mark labels on the axis and calls 
REMLAB to put out the remote scale factors. The label strings 
are generated in either NUMSET or ALFSET, or by a user routine 
USESET. 

The subroutines in the NUMSET group replace FORTRAN numeric 
conversion routines. NUMSET will appropriately convert a 
number into either a floating point form or an integer form. 

If a floating point number will not fit the label space, 

EFORM generates an exponential value. 
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After an alphanumeric label is produced, JUSTER determines 
the true length (see String Generation on page 222 ) and 
calculates the offset from the point of left, right, or 
center justification. 

LABEL then calls NOTATE to display the string at the position 
specified by LABEL. The offset from JUSTER is added to the X 
coordinate. NOTATE uses HLABEL to put out the string, 
character by character. 

After the tic mark labels are displayed, LABEL calls REMLAB 
for remote labels. Linear labels may require a remote scale 
factor; calendar data requires beginning year designation. 

Monthly labels are positioned by MONPOS, and then GLINE 
draws the grid line in the correct place. The grid line 
beginning coordinate is returned to LABEL which uses the 
string from ALFSET to display the label. 
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CHECKING SUBROUTINES 

As was described in Section 3, the COMMON Table contains the 
AG-II variables. Following initialization and setting of variables 
by the user, internal routines set the remaining Table values. The 
OPTIM subroutines, which determine the tic mark values are described 
separately in Section 4 of this manual. Other checking routines follow. 

Error Recovery Subroutine - ERREC 

If the user has not called BINITT before CHECK, or 
INITT before BINITT, this subroutine issues a message 
notifying him of the error and its correction. 

CALL ERREC (I) 

Parameter Entered: 

I is a value showing which subroutine has not 
been called. 

1 - BINITT was called without INITT. 

2 - CHECK was called without BINITT. 

Description: 

After BINITT or CHECK calls the preceding routine, 
it calls ERREC which prints the message: 


ERROR RECOVERY (Bell) INITT (or BINITT) CALLED. 



7.2 Data Type Checking Subroutine - TYPCK 


Sets the data type in COMMON to coincide with the 
form specified in the calendar data array. 

Calling Sequence: 

CALL TYPCK (NBASE,ARRAY) 

Parameters Entered: 

NBASE is the axis pointer, or the location in 
COMMON of the first item referring 
to the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 

ARRAY is the data array for the appropriate 
axis. 

Description: 

If the calendar short form has been used for the 
data array, TYPCK determines what data type 
should be specified in CXTYPE or CYTYPE (years, 
months, periods, etc.) and sets it. 

For any other data form, no action is taken. 


(® 
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Checks to see if the user has set the data minimum 
and maximum in COMMON, and sets them if the user 
has not. 


Calling Sequence: 

CALL RGCHEK (nBASE,ARRAY) 

Parameters Entered: 

NBASE is the axis pointer, or the location 

in COMMON of the first item referring 
to the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 

ARRAY is the data array for which the minimum 

and maximum are to be checked. 

Description: 

RGCHEK determines if the data limits (CXDMIN or 
CYDMIN and CXDMAX or CYDMAX have been set in 
COMMON. If not, it sets the minimum to infinity, 
(CINFIN) and the maximum to negative infinity, 
and calls MNMX which adjusts them to fit the data. 
The data limits are then set in the COMMON table. 
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7.4 Linear Label Computing Subroutine - LWIDTH 


Computes the width and form of linear tic mark 
labels. 

Calling Sequence: 

CALL LWIDTH (NBASE) 

Parameters Entered: 

NBASE is the axis pointer, or the location 
in COMMON of the first item referring 
to the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 

Description: 

LWIDTH obtains the data minimums and maximums, 
and the least significant digit from COMMON 
and determines the width of the labels, the 
number of decimal places required, and the 
shifting exponent, and sets the values of 
CXWDTH or CYWDTH, CXDEC or CYDEC, CXEPON or 
CYEPON In COMMON. 
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7.5 Label Postioning Subroutine - SPREAD 


Determines how many labels will fit along the X or Y 
axis, and whether staggering will be necessary. 

Calling Sequence: 

CALL SPREAD (NBASE) 

Parameter Entered: 

NBASE is the axis pointer, or the location in 

COMMON of the first item referring to the 
X or Y axis, whichever is here indicated. 
(IBASEX or IBASEY provides this location.) 

Description: 

SPREAD uses the width of label, the number of 
labels, and the length of the axis to compute 
how many labels will fit along each axis. With 
this information SPREAD sets CXSTEP or CYSTEP and 
CXSTAG or CYSTAG in COMMON. See Section 3.2.17 and 
3.2.18, 



7.6 Tic Mark Setting Subroutine - TSET 

Determines the beginning and ending points of the 
tic marks. 

Calling Sequence: 

CALL TSET (NBASE) 

Parameter Entered: 

NBASE is the axis pointer, or the location in 
COMMON of the first item referring to 
the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 

Description: 

TSET determines the beginning and ending locations 
of the major and minor tic marks and sets these 
values in COMMON. TSET is called by CHECK. 

TSET2 is called twice - once for major and once 
for minor tic marks. 
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7.7 Tic Mark Setting Subroutine - T$ET2 

Determines the beginning and ending points of 
the major and minor tic marks. 


Calling Sequence: 

CALL TSET2 (NEWLOC,NFAR,NLEN,NFRM,KSTART,KEND) 

Parameters Entered: 

NEWLOC is the location of the axis 

NFAR is the location of the window edge 

opposite the axis. 

NLEN is the tic mark length from CXLEN 

or CYLEN in COMMON. This is a negative 
value if the axis location is on 
the opposite (top or righthand) 
side of the screen. 

NFRM is the tic mark form from CXFRM 

or CYFRM in COMMON. 

Parameters Returned: 

KSTART is the starting point for the tic 
marks (in raster units). 

KEND is the ending point for the tic marks 

(in raster units). 

Description: 

TSET calls TSET2 to obtain the beginning and 

ending points of the major and minor tic marks. 
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SECTION 8 


OPTIMUM TIC MARK SETTING SUBROUTINES 

OPTIM and its companion routines LOPTIM (for linear or 
logarithmic data) and COPTIM (for calendar data) use the 
data already set in COMMON by BINITT and the user to 
produce appropriately spaced and labeled tic marks. 

If any necessary COMMON values have not been set, appropriate 
values are obtained through this routine. 

If the number of tics is not specified, the number is chosen 
based on the length of the axis and the density factor. The 
distance between the resulting tic marks will be no less than 
three characters in width or more than 150 raster units (1024 
addressing) or 600 raster units (4096 addressing). 

Note: The density factor is-a value in COMMON designating 
the desired density of tic marks. Values 0 through 5, and 
6 through 10 create tic marks ranging from sparse (0 or 6) 
to dense (5 or 10) with values 0 through 5 omitting minor 
tic marks. 

If the number of tics has been user specified, density factor 
is ignored. 

The interval between tic marks will be calculated. If neat 
tic marks have been requested, the label values will be rounded 
to neat intervals. Data minimum and maximum will be adjusted 
to coincide with label values. If the number of tics has not 
been specified, it may be altered at this time to fit the plot 
better; if the number of tic marks was user specified, tic mark 
labels and data limits will be adjusted to fit. 

The position of the least significant digit in the tic mark 
label is calculated and this information utilized by WIDTH 
to select the number of digits to be displayed as part of 
the label. A remote exponent will be used, displayed as a 
general axis label, if the complete label will not fit. 

If the number of minor tics has not been selected and the 
density factor is six or greater, the number of minor tics 
will be selected based on the major tic mark label interval. 

NOTE: The list of neat values used to compute neat major 
and minor tic mark values may be reprogrammed by the user. 



8.1 Tic Mark Density 

The density algorithm is shown in figure 3. In the equations 
used, variables are as follows: 

IDEN is the density factor from the variable CXDEN 
or CYDEN in the COMMON Table. 

FAC is a factor based on the density variable 
IDEN minus 1 modulo 5. 

IDIV is the number of raster units between adjacent 
tic marks. Based on this algorithm, the number 
of raster units will be between the width of 
three characters and 150 (1024 addressing) raster 
units. 

LEN is the total length of the axis. 

NTICS is the resulting number of tic mark intervals. 

MAXSCR is the size of the terminal screen as specified in 
the TCS routine SEETRM. 

FDENl 

FDEN2* intermediate variables in the calculation. 
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DENSITY ALGORITHM 


MAJOR TICS 


I FAC 

* M0D(IDEN,5) 

FAC 

= IFAC + FRAC 

FDENl 

= MAXSCR/1022 * 150 

FDEN2 

= (FDENl - LINWDT(3))/4.0 

IDIV 

= MAX1(FDEN1-FDEN2*FAC,2.0) 

MINOR TICS 



The number of minor tic mark intervals is chosen from a 
table based on the tic mark label increment. If the number 
of intervals (MTCS) is 10, the number is adjusted downward 
according to the following specification. 

If density < 9 MTCS=5 
If density < 7 MTCS=2 


TIC MARK DENSITY TABLE 
No Minor Tics . With Minor Tics 


Sparse 

1 

6 



2 

7 



3 

8 



4 

9 

Dense 

5 

10 


I NOTEj 

If the number of tic marks is set, the density setting will have no effect. 


Figure 3 
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8.2 Neat Tic Mark Intervals 


In the neat tic mark algorithm, the following variable 
terminology is used: 

TINT is the raw tic mark interval. 

RANGE is the range of data covered. 

NTICS is the number of tic marks derived 

from the variable CXTICS or CYTICS 
in COMMON. 

LSIG is the location of the least significant 
digit. 

FINDGE refers to the AG-II function FINDGE 

which searches a table for the nearest 
value greater than or equal to a test 
value. 

FACTOR a power of 10 coefficient which when 

used as a divisor of TINT yields a number 
between 1 and 10. 
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METHOD OF FINDING NEAT TIC INTERVAL 


NEAT ALGORITHM 


Example based 
on NTICS = 7 


FIND RAW TIC INTERVAL 

TINT = RANGE/FLOAT(NTICS) 

62.4 = 437.0/7.0 

TAKE INTEGER PART OF LOG OF 

TIC INTERVAL TO FORM FACTOR 

LSIG = ALOGIO(TINT) 

FACTOR = 10.0**(LSIG) 

1 = AL0G10(62.4) 

10.0 = 10.0**(1) 

DIVIDE INTERVAL BY FACTOR 

YIELDS NUMBER BETWEEN 1 AND 10 

TINT = FINDGE(TINT/FACTOR,TABLE,I) 
*FACTOR 

6.24 = 62.4/10.0 

SELECT VALUE FROM "NEAT" TABLE 
WHICH IS .GE. THE FACTORED 
INTERVAL 

NEAT TIC 

1 I = 1, 2, 3, 4, 5 

1 1 1 1 1 

j 1., 2. ,'2.5, ' 5., ho. ' 

1 FINDGE.‘.= 10.0 

1 6.'24 

1 

INTERVAL = 100 = 10.0x10.0 


00 

ch 


NEAT TIC MARK VAl"ES ALGORITHM FIGURE 4 







8.3 Optimum Calendar Tic Marks Subroutine - COPTIM 

Detennines the best tic mark values for calendar data. 
Calling Sequence: 

CALL COPTIM (NBASE) 

Parameters Entered: 

NBASE 


Description: 

If the data type is s 3 and < 8, indicating calendar 
type, OPTIM transfer control to COPTIM which checks 
the number of tic marks, the density factor if the 
number of tics is not specified, the neat tic mark 
flag, and the length of the axis. COPTIM then produces 
the results necessary for appropriately spaced and 
labeled tic marks. The description of OPTIM on page 4-16 
describes the general sequence of events. Also See the 
neat and density algorithm descriptions on pages 8-4 and 
8-5. 


is the axis pointer, or the location 
in COMMON of the first item referring 
to the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 
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COPTIM 



PICK UP 
PARAMETERS 
FROM TABLE 


^ NO. ^ 
OF TICS 
SPECIFIED 
. ? ^ 


COMPUTE 
TIC INTERVAL 
FROM DENSITY 


NEAT TICS 
SPECIFIED 
^ 7 ^ 


FIND NEAT 
TIC INTERVAL 


ROUND MIN 
DOWN AND 
ROUND MAX UP 



RE-COMPUTE 
NUMBER OF TICS 


WERE NUMBER., 
OF TICS 

X^ECIFIED/* 


+ NUMBER SPECIFIED 

-- NUMBER COMPUTED- 

\ 7 ^ 


TAKE NUMBER 
SPECIFIED AND 
INCREASE MAX 


INCREASE SIZE 
OF INTERVAL 


PUT TIC DATA & 
LABEL LIMITS 
INTO TABLE 


Figure 5 
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8.4 Optimum Linear or Logarithmic Tic Mark Subroutine - 



4 — 



Z 


LOPTIM 


Determines the appropriate labeling and spacing of 
the tic marks. 

Calling Sequence: 

CALL LOPTIM (NBASE) 

Parameter Entered: 

NBASE is the axis pointer, or the location in 
COMMON of the first item referring 
to the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 

Description: 

OPTIM calls LOPTIM if the data type (CXTYPE or 
CYTYPE) is linear or logarithmic. 

LOPTIM checks the label type to determine if the 
the data is linear or logarithmic, if neat tic 
marks are desired, and if the number of tics has 
been specified. If the number of tics is not 
specified, LOPTIM uses the density factor to 
determine the number. 

If the type of data is logarithmic, and there is 
room between the major tic marks and the major 
tic marks are single decades, logarithmic 
minor tic marks and logarithmic labels are 
allowed. 


Labeled Minor Logarithmic Tic Marks 


/O^ 


@ 
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LOPTIM 



.AND.NOT.LOG 
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TAKE LOG 
OF MIN/MAX 


COMPUTE 
TIC INTERVAL 
FROM DENSITY 




Figure 6 


(a) 














SECTION 9 


DISPLAY SUBROUTINES 

Once the COMMON Table has been set, the display subroutines draw 
the plot. CPLOT, the basic plotting routine, calls the other 
routines necessary to draw the graph. Section 1.2 describes the 
sequence in which the other subroutines are called. CPLOT, UPOINT, 
BAR, FILBOX, BSYMS, GRID, LABEL, NUMSET, USESET, OUSTER, and 
HLABEL are described in the User's Sections. 

Flow charts of NUMSET called routines are included in Section 10. 
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9.1 Curve PIottinq Subroutine - CPLOT 


CPLOT draws a data curve, using the window location values from 
COMMON. A flow chart of CPLOT is shown on the following page. 
The subroutine is described in detail in Section 2.3.4. 



CPLOT 



Figure 7 
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9.2 Label Drawing Subroutine - LABEL 


LABEL calls the appropriate routines to construct tick mark labels 
and compute their positions on the screen, and displays them. The 

routine is described in Section 4.1.6. A flow chart of LABEL is 
shown on the following page. 


4010A02 SYSTEM 



LABEL 



Figure 8 
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9.3 Key Setting Subroutine for Type of Data Array - KEYSET 
Sets the key to indicate the type of data array. 
Calling Sequence: 

CALL KEYSET (ARRAY.KEY) 

Parameter Entered: 

ARRAY is the data array for which type is 
to be determined. 

Parameter Returned: 

KEY is the key for data array form. 

1 = standard long form 

2 = short form 

3 = short calendar form 

4 = user defined form 

5 = non-standard form 
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9.4 TEK Symbol Drawing Subroutine - TEKSYM 


Draws TEK symbols. 

Calling Sequence: 

CALL TEKSYM (ISYM, FACTOR) 

Parameter Entered: 

ISYM is the value from CSYMBL which specifies the 
type of symbol to be drawn at data points. 

FACTOR is the floating point scale multiplier for the 
symbol size. 


Description: 

This subroutine draws the symbols provided with the 
AG-II system. See data point symbol chart in Section 

3.2.1. 

In the code, the following variables retain the first 
values assigned to them through subsequent executions. 

MEMORY 

AMULT 

ROD 

IHALF 

IFULL 

ITEM 

IX 

Jy arrays dimensioned to 3 

This will cause problems on systems where local variables 
are dynamically stored. Such problems can be solved by 
forcing these variables to be stored in core memory. 
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9.5 Data Obtaining Function - DATGET 

This function provides the actual data values to 
be plotted. 

Calling Sequence: 

VALUE = DATGET (ARR,I,KEY) 

Parameters Entered: 

ARR is the data array to be plotted 

I is the data point for which a value 

is needed. 

KEY is the type of data array being used. 


1 

is 

standard data format. 

2 

is 

standard short data format. 

3 

is 

calendar format 

4 

is 

user defined format. 

5 

is 

non-standard data format. 


Description: 

DATGET is called by CPLOT to obtain the data 
from the data arrays for each point plotted. 
(Calendar data values are obtained by DATGET 
calling CALPNT.) 

In the code, the variable OLDONE retains the 
value assigned to it during the previous execution. 
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Logarithmic Tic Mark Drawing and Labeling Subroutine - 
LOGTIX 


Draws and labels logarithmic minor tic marks. 

Calling Seguence: 

CALL L06TIX (NBASE,STARTJINTVL,MSTART,MEND) 
Parameters Entered: 

NBASE is the axis pointer, or the location in 
COMMON of the first item referring to 
the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY 
provides this location.) 

START is the start of the interval into 
which logarithmic minor tic marks 
are to be placed. 

TINTVL is the length of the major tic mark 
interval. 

MSTART is the minor tic mark starting point. 

MEND is the minor tic mark ending point. 

Description; 

This subroutine is called by GRID to draw 
logarithmic tic marks and labels. LOPTIM 
determines if there is room for logarithmic tic 
marks or labels. CXMTCS and CYMTCS contain a 
coded value where -1 specifies logarithmic 
tic marks and -2 specifies logarithmic tic 
marks with labels. 



9.7 Monthly Tic Mark and Grid Drawing Subroutine - 6LINE 
Draws monthly tic marks and grid. 

Calling* Sequence: 

CALL GLINE (NBASE.DATAPT.SPOS) 

Parameters Entered: 

NBASE is the axis pointer, or the location 

of the first item referring to the X or 
Y axis, whichever is here indicated. 
(IBASEX or IBASEY provides this 
location.) 

DATAPT is the virtual position of the 

end of the last day of the month. 

Parameters Returned: 

SPOS is the screen position of the last 

day of the month. 


Description: 

GLINE determines the monthly tic mark positions 
in screen coordinates and draws them. The screen 
position is returned to MONPOS which, in turn, 
passes it to LABEL for the centering of the 
labels. 

This routine positions grid lines at the end 
of the month, which means that lines will not 
be evenly spaced since months are not of equal 
length. 
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SECTION 10 


STRING HANDLING AND LABELING 

Labels are handled through a group of routines which set up character 
strings to be displayed, a subroutine which left, right, or center 
justifies the character string, and subroutines which display 
the character string at the designated place on the screen. 

10.1 String Set Up 

The following subroutines interact to set up character strings 
for display. The three primary routines are underlined 
and followed by subsidiary routines. 

NUMSET utilizes IFORM, FFORM or EXPOUT to change floating 
point numbers into character strings which can later 
be displayed as tic mark labels. Calling sequence is: 

CALL NUMSET (FNUMBER,IWIDTH,NBASE,IARRAY,IFILL) 

as described in fulI on page 4-19. 

IFORM converts a floating point number into a character 

string without a decimal point. Calling Sequence is: 

CALL IFORM (FNUM,IWIDTH,IARRAY,IFILL) 

as described in full on page 4-22. 

FFORM converts a real value into a character string which 
provides either a floating point number or a number 
without a decimal point, depending on which form will 
best fit the given width. Calling Sequence is: 

CALL FFORM (FNUMBER,IWIDTH,IDECIMAL,IARRAY,IFILL) 

as described in Section 4.2.3. 

EFORM converts a real value into an exponential character 
string to fit a given width. Calling Sequence is: 

CALL EFORM (FNUMBER,IWIDTH,IDECIMAL,IARRAY,IFILL) 

as described in full on page 4-20. 

FONLY converts a real value into a character string which 
provides a number with a decimal point. Calling 
Sequence is: 

CALL FONLY (FNUMBER,IWIDTH,IDECIMAL,IARRAY,IFILL) 

As described in detail on page 10-6 of this manual. 

FONLY is called by FFORM or EFORM. 
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ESPLIT determines the exponent required for exponential 
labels. Calling Sequence is: 

CALL ESPLIT (FNUMBER,IWIDTH,IDECIMAL,IEXPON) 

as described in detail on page 10-7 of this manual. 

ESPLIT is called by EFORM. 

EXPOUT constructs the character string for remote scale 
factors and for logarithmic tic marks. Calling 
Sequence is: 

CALL EXPOUT (NBASE,IEXP,IARRAY,LENGTH,I FILL) 

As described in Section 4.2.5. 

ALFSET supplies the ASCII values of the characters for 
writing the days and months for labels. Calling 
Sequence is: 

CALL ALFSET (FNUM,IWIDTH,LABTYP,IARRAY) 

as described on page 10-5 of this manual. 

USESET is a user written routine which supplies character 
strings for labels according to the user's format. 
Calling Sequence is: 

CALL USESET (FNUM,IWIDTH,NBASE,IARRAY) 

As described in full in Section 13 

Note: This routine must be expanded from its present 
simple form if it is to be utilized. JUSTER assumes 
blank fill• 

A typical character string produced is shown below. 


lARRAY(l) 

i 


FILL 

FILL 

^L 

L 

A 

B 

E 

L 

SP 

1 

32 

l32 

76 

65 

66 

69 

76 

32 

49 


WIDTH 


A Character String 
Figure 9 
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Figure 9 is a flow chart of the interaction of these routines. 

In general terms, NUMSET determines the kind of labels needed and 
calls the appropriate routines. If logarithmic labels are needed, 
EXPOUT is called to produce exponential labels. 

If integer labels are needed, IFORM is called. IFORM forms the 
string and fills blank spaces at the left with space fill characters 
(ASCII decimal equivalent 32). 

If floating point numbers are needed, NUMSET calls FFORM which 
determines if the number is too wide for the space available. If 
it is not too wide, FFORM calls FONLY which separates the fractional 
part from the whole part. FONLY calls IFORM with the fractional 
part, inserts a decimal point, calls IFORM with the whole part, 
and inserts a minus sign if the number is less than zero. 

If the floating point number is too wide for the space available, 
FFORM calls EFORM which calls ESPLIT for the decimal and exponent. 
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NUMBER CONVERSION 


NUMSET 



Figure 10 
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10.1.1 Alphanumeric Labeling Subroutine - ALFSET 

Supplies the ASCII values of the characters for writing 
the days and months for labels. 

Calling Sequence: 

CALL ALFSET (FNUM,IWIDTH,LABTYP,IARRAY) 

Parameters Entered: 

FNUM is the number of the day or month 

to be printed. 

IWIDTH is the label width from COMMON. 

LABTYP is the label type from COMMON. 

Parameters Returned: 

lARRAY is the string of ASCII values for 
the label characters. 


Description: 

ALFSET contains an array of ASCII values for 
the letters of each day and month. It checks 
the label type (CXLAB or CYLAB) in COMMON, and 
if it is 3 (days) or 6 (months) continues to 
check the label width (CXWDTH). It then supplies 
as many of the appropriate ASCII values as will 
fit the width. 

The user may increase the array size and add 
other label types if the need arises. 
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10.1.2 Floating Point Conversion Subroutine - FONLY 


Converts a real value into a cKaracter string which 
provides a number with a decimal point. 

Calling Sequence: 

CALL FONLY (FNUMBER.IWIDTH,IDECIMAL,IARRAY,IFILL) 


Parameters Entered: 

FNUMBER 

is the floating point number to be 
converted. 

IWIDTH 

is the length of the resulting string, 
including fill characters. 

IDECIMAL 

is the number of digits to follow the 
decimal point. 

IFILL 

is the character used to fill any 
extra spaces at the beginning of the array 
(all numbers are right justified). 

Parameters Returned: 

. lARRAY 

is the string of characters to compose 
the label. 


Description: 

FONLY is called by FFORM and EFORM, as needed, 
to produce floating point character strings. 
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Ejcponent Finding Subroutine ^ ESPLIT 
Determines tlie exponent required for labels. 

Calling Sequence: 

CALL ESPLIT (FNUMBER,IWIDTH,IDECIMAL,IEXPON) 
Parameters Entered: 

FNUMBER is the floating point number to be 
converted. 

IWIDTH is the length of the resulting 

string, including fill characters. 

IDECIMAL is the number of digits to follow 
the decimal point. 

Parameter Returned; 

lEXPON is the exponent value. 

Description: 

EFORM calls ESPLIT to find the correct exponent 
value. 
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10.2 Character String Placement and Printing 

After subroutine LABEL determines the position from which 
tic mark labels or remote labels are to be justified, it 
calls subroutine OUSTER. OUSTER computes the distance the 
beginning point of the label is to be offset from the position 
determined by LABEL. Subroutine REMLAB produces the label 
string for the remote label or remote scale factor and 
displays it. NOTATE displays horizontal labels by calling 
HLABEL. These subroutines are described individually with 
illustrations on the following pages. 

OUSTER right, left, or center justifies a character string. 

It computes the distance in raster units between the point 
from which the string is to be justified and the actual 
starting point for the justified string as well as the 
length of the character string without fill characters. 

Calling Sequence is: 

CALL OUSTER (IWIDTH,IARRAY,KEY_POSITION,IFILL_CHARACTER,LEN, 
lOFFSET) 

as described in detail in Section 2.13.4. 

The following diagram shows the manner in which a character 
string is justified. 


LEN 

represents the length of the actual 
label to be printed 

IWIDTH 

the length of the label plus fill 
characters 

KEY_P0SITI0N 

the designation of right, left, or 
center justification 

lOFFSET 

the distance in raster units between 
position from LABEL and the actual 
starting point after justification 

IHORZ 

the width of an alphanumeric 
character in raster units (14 raster 
units for the standard character set 
on the 4010 family of Display Terminals). 


IFILL_CHARACTER is the character in ASCII code used as 
filler (usually a space [32]). 
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Character String: 



IWIDTH 


OFFSET Computation 

IF KEY_P0SITI0N40,I0FFSET=0 
IF KEY_P0SITI0N>0,I0FFSET=-LEN*IH0RZ 
IF KEY_P0SITI0N=0,I0FFSET+(-LEN*IH0RZ)/2 


KEY_P0SITI0N?0 KEY_P0SITI0N=0 KEY_P0SITI0N<0 

Results in Right Results in Center Results in Left 

Justification Justification Justification 



Label Justification 
Figure 11 


NOTATE moves the alphanumeric cursor to the position where a 
label is to begin and prints the label out. It is called by LABEL with 
the screen coordinates of the beginning point of the label, the 
length of the character string to be printed, and the string of 
characters in ASCII decimal equivalents. Calling Sequence is: 

CALL NOTATE (IX,IY,LENCHR,ISTRIN) 

as described in detail in Section 2.13.2 

As called by LABEL, the computation of the parameters would appear 
as follows: 

CALL NOTATE (IX+I0FF,IY,LENCHR,IARRAY(IWIDTH-LEN+1)) 

The following figure shows a character string with the parameter 
designations labeled. 
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r 


_IW]^ 


lARRAY(l) 


IARRAY(IWIDTH-LEN+1) 


FILL 

32 

FILL 

32 

m 

L 

76 

A 

65 

B 

66 

E 

69 

L 

76 

SP 

32 

1 

49, 

- y -^- 



ISTRIN(l) 


LEN 


Character String as used with NOTATE 
Figure 12 


NOTATE then calls the TCS subroutine 
MOVABS (IX+I0FF,IY) 

which moves the alphanumeric cursor to the beginning point of 
the label, and the AG-II subroutine. 

HLABEL (LEN.ISTRIN) 

which produces a label such as: 

LABEL 1 


HLABEL is a horizontal labeling subroutine described on page 50 
of the User's Manual. 

REMLAB uses much the same procedure as shown above to print out 
remote labels or scale factors such as 10*^, M, etc., or the name 
of a beginning month or year for calendar data. The method of 
printing superscript characters, such as are often used in remote 
labels, is described in Section 10.4. 
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10.3 


Remote Labeling Subroutine - REMLAB 


Produces the label string for the remote label or 
remote scale factor (the remote exponent position is 
calculated in LABEL) and displays it. 

Calling Sequence: 

CALL REMLAB (NBASE,ILOC,LABTYP,IRX,IRY) 

Parameters Entered: 

NBASE is the axis pointer, or the location in 
COMMON of the first item referring 
to the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 

ILOC is the location of the axis in relation 

to the window edge (See Section 
3.2.3 

LABTYP is the type of tic label which 

designates log, linear, days, months, 
or other. (See Section 3.2.4.) 

IRXjIRY is the location, in raster units, from 
which the remote exponent is right, 
left, or center justified. 

Description: 

REMLAB determines if the remote exponent is left, 
right, or center justified. 

Axes (axis lines plus tic marks and labels) on 
the lefthand side of the screen have remote 
exponents that are right justified from a 
reasonable location. Axes on the righthand side 
of the screen have labels that are left justified, 
and X axis remote exponents are centered on the axis. 

This routine calls EXPOUT, JUSTER, and NOTATE 
to compute the value of the exponent and the 
justification, and displays the exponent. 

Calendar data requires a different type of remote 
label. If the calendar label type is days, 
the beginning date of the axis is displayed as the 
remote label. If the calendar label type is 
other than days, the years spanned will be the 
remote exponent (1969 if all data is in that 
year, 1969-1972 if the beginning data was in the 
year 1969 and the ending data in 1972). 
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10.4 Labels with Special Characters 


Subscript and Superscript characters require special treatment 
in a character string. A -1 value in a character string 
indicates that the next character is to be in a superscript 
position (JUP, or jump up character). A -2 value in a character 
string indicates that the next character is to be in subscript 
position (JDN, or jump down character). 


For example, to produce a character string for the 
superscripted label 

228 


the values might be placed in the array as follows: 

1. CALL IFORM (FNUM,IWIDTH,IARRAY,IFILL) with the following 
parameter values. 


FNUM equals 8., the value of the superscript. 

IWIDTH equals 4, the width of the total array of three 
numbers plus a superscript designation. 
lARRAY is the name of the array or character string 
being built. 

IFILL is the ASCII decimal equivalent of the character 
to be used as filler in the array (32 is a space). 

The resulting character string now contains the following 
ASCII decimal equivalents: 


lARRAY(l) 

X 


32 

32 

-1 

56 



IWIDTH 


ASCII Decimal Equivalents 
Characters Represented 
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2. Insert the superscript character designator in 
IARRAY(3) with the statement 

IARRAY(3)=JUP 

where JUP designates a "jump up" or superscript 
character. The character string now appears as: 

IARRAY(3) 


32 

32 -1 

56 

ASCII Decimal Equivalents 

SP 

SP 

8 

Characters Represented 


Available special character designators are: 

JUP = -1 denotes that the following 
characters will be moved up 
half a character space. 

JDN = -2 denotes that the following 
characters will be moved 
down half a character space. 
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3. The remainder of the character string may be placed in 
the array with another call to IFORM 

CALL IFORM (FNUM,IWIDTH,IARRAY,IFILL) 

with FNUM equal to 22, IWIDTH equal to 2, and the other 
parameters the same as in step 1. 

The complete array is: 



50 

-1 

56 


2 


8 


IWIDTH 


ASCII Decimal Equivalents 
Characters Represented 


Instead of calling IFORM, ASCII decimal equivalents may also 
be entered directly with statements 

IARRAY{1)=50 

IARRAY(2)=50 


The computation of left, right, or center justification also 
requires special consideration by Subroutine OUSTER. In 
determining the distance from a reference point that a character 
string is to be offset, the special character designator 
(JUP or JDN) must be subtracted from the length of the 
character string. 


LEN 

50 

50 

-1 

56 1 


2 




IWIDTH 


ASCII Decimal Equivalents 
Characters Represented 


ISPECIAL=No of Special Character Designators 
IF KEY POSITIONED,I0FFSET=0 
IF KEY POSITION>0,IOFFSET=-(LEN-ISPECIAL)*IHORZ 
IF KEYlpOSITION=0,IOFFSET=-(LEN-ISPECIAL)*IHORZ/2 


Figure 13 
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NOTATE handles special characters in the following manner. 
The same character string used in previous examples is also 
used here. 


1. NOTATE first calls MOVABS with the screen coordinates 
where the label is to begin on the screen. 

MOVABS (IX+I0FF,IY) 

2. It computes the length of the string to the first special 
character designator encountered, and calls HLABEL. 

ANSTR (LENGTH,lARRAY)* 

For oar example, LENGTH equals 2 

'5oT~5Q / -1 I 56 


8 


ASCII Decimal Equivalents 
Characters Represented 


2 _ 2 

LENGTH 

ANSTR then prints the characters designated 


Characters Printed 

Starting 22^ 

Beam Positioti*'^ 

3. NOTATE checks the type of special character and calls 
MOVABS once more to move the alphanumeric cursor (or 
beam) to the end of the string printed thus far and up 
or down one half character, depending on the type of 
special character. For our example, MOVE is called in 
the following manner: 

CALL MOVABS (IX+LENGTH*IH0RZ,IY+IVERT/2) 

Where IHORZ is the width of a character in raster units 
and IVERT is the height of a character in raster units. 

Beam position is now: 

<^eam Position 


♦User with AG-II, Release 1.1 or earlier should use the routine 
HLABEL in place of ANSTR. 



4. NOTATE then calls ANSTR with the length and array position 
of the special character to be printed. For our example, 

CALL HLABEL (LENGTH,IARRAY(2+1+1)) 

where LENGTH is the number of words from the array 
position passed to ANSTR to the end of the string 
or to the next special character designator (-1 or 
-2), whichever is encountered first. lARRAY (2+1+1) 
is the array position of the next character to be 
printed. 


Note that the beam will remain in the same vertical plane 
until another special character designator is encountered. 
Therefore, the character string to print H 2 O would be: 


Lzi_ 

-2 

50 

El] 


H 2 0 


The -2 special character designator (JDN) moves the beam 
down half a character to print the 2, and the -1 special 
character designator moves the beam up half a character 
to the normal position for the 0. 
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SECTION 11 


NUMERIC FUNCTION 

A group of functions provide various numeric operations. 
FINDGE and FINDLE find the greatest or the least value in 
a table of integers. ROUNDD and ROUNDU round values down 
or up whenever necessary. LOCGE and LOCLE are comparable 
to FINDGE and FINDLE, but operate on floating point values. 
lOTHER determines the opposite base (transfers computation 
from the X axis table of COMMON to the Y axis table or 
vice versa). 



n .1 Maximum Floating Point Value Finding Function - FINDGE 


Finds in a table of floating point numbers the smallest 
entry greater than or equal to a given test value. 

Calling Sequence: 

RESULT = FINDGE (VALUE.TABLE.IPOINT) 

Parameters Entered: 

VALUE is the test value against which TABLE 

entries are to be checked. 

TABLE is a sequential array of real values 

to be compared to the test value. The 
first entry must be smaller than VALUE, 
and the last entry must be greater than 
VALUE. (TABLE(1)<VALUE<TABLE{N).) 

Beginning and ending values such as 
-1E30 and 1E30 fulfill this requirement. 

IPOINT is a pointer to a word or value in 

TABLE. Its initial value will be the 
point in the table at which the search 
starts, and the ending value will be 
position of the first number found 
which is greater than or equal to VALUE. 

Restriction : IPOINT must fall within 
the range of the table (0<IP0INT<N). 

Description: 

FINDGE checks the initial value of TABLE(IPOINT) to 
determine if it is greater than or less than VALUE, and 
thus determines which direction the pointer is to move. 

For example, if TABLE(IPOINT) is less than VALUE, the 
pointer will move toward the end of the table; if greater 
than VALUE, it will move toward the beginning of the table. 

Example: Given TABLE=1E30,1.,3.,3.,4.,1E30 

IP0INT=2 

X=FINDGE (3.5,TABLE,IPOINT) 

Then X=4 and 
IP0INT=5 

NOTE: If this routine is used in a loop, execution time 
will be minimized if IPOINT is not set to a constant inside 
the loop. This is especially true of sets of VALUE which 
are ordered sequentially. 
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11-2 Minimum Floating Point Value Finding Function - FINDLE 


Finds in a table of floating point values the largest 
entry that is less than or equal to a given test value. 

Calling Sequence: 

RESULT = FINDLE (VALUE,TABLE,IPOINT) 

Parameters Entered: 

VALUE is the test value against which the 
TABLE entries are to be checked. 

TABLE is a sequential array of real values 

to be compared to the test value. The 
first entry must be smaller than VALUE, 
and the last entry must be greater than 
VALUE, the same as for FINDGE. 

(See page 11-2) 

IPOINT is a pointer to a word (or value) in 
TABLE. Its initial value will be the 
point in the table at which the 
search starts and the ending value will 
be the position of the first number 
found which is less than or equal 
to VALUE. 

Restriction : IPOINT must fall within the 
range of the table (0<IP0INT<N). 

Description: 

FINDLE checks the initial value of TABLE(IPOINT) 
to determine if it is greater than or less than 
VALUE, and thus determines which direction the 
pointer is to move. If TABLE(IPOINT) is 
less than VALUE, the pointer will move toward 
the end of the table; if greater, it will move 
toward the beginning of the table. 

Example: Given TABLE = -1E30,1.,3.,3.,4.,1E30 

IP0INT=2 

X=FINDLE (3.5,TABLE,IPOINT) 

Then X=3 and 
IP0INT=4 

Note: If this routine is used in a loop, execution 
time will be minimized if IPOINT is not set to a 
constant inside the loop. This is especially true 
of sets of VALUE which are ordered sequentially. 
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11.3 Maximum Integer Value Finding Function - LOCGE 


Finds in a table of integer values the smallest entry 
greater than or equal to a given test value. Basically, 
this function is the same as FINDGE, but FINDGE uses 
floating point values. 

Calling Sequence: 

RESULT = LOCGE (IVALUE,ITABLE,IPOINT) 

Parameters Entered: 

IVALUE is the test value against which table 
values are to be checked. 

ITABLE is a sequential array of integer values 
to be compared to the test value. The 
first entry must be smaller than IVALUE, 
and the last entry must be larger than 
IVALUE. (ITABLE(1)<IVALUE<ITABLE(N).) 
Beginning and ending values such as 
-999999 and 999999 fulfill this 
requirement. 

IPOINT is a pointer to a word or value in 
ITABLE. Its initial value is the 
point in the table at which the search 
starts, and the ending value will be 
the position of the first value found 
which is greater than or equal to IVALUE. 

Restriction : IPOINT must fall within 
the range of the table (0<IP0INT<N). 

Description: 

As with FINDGE, the initial value of IPOINT is 

checked for being greater or less than IVALUE. 

The pointer then moves in the appropriate 

direction to find the value it is seeking. 


Example: Given 

ITABLE=-999999,10,20,30,40,999999 


IP0INT=2 


I=L0CGE (35,ITABLE;IPOINT) 

Then 

1=40 and 


IP0INT=5 


NOTE: If this routine is used in a loop, execution 
time will be minimized if IPOINT is not set to a 
constant inside the loop. This is especially true 
of sets of VALUE which are ordered sequentially. 
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n.4 Minimum Integer Value Finding Function - LOCLE 


Finds in a table of integer values the largest entry 
that is less than or equal to a given test value. 

Calling Sequence: 

RESULT = LOCLE (IVALUE,ITABLE,IPOINT) 

Parameters Entered: 

IVALUE is the test value against which table 

values are to be checked. 

ITABLE is a sequential array of integer values 
to be compared to the test value. The 
first entry must be smaller than IVALUE, 
and the last entry must be larger than 
IVALUE. (ITABLE(1)<IVALUE<ITABLE(N).) 
Beginning and ending values such as 
-999999 and 999999 fulfill this 
requirement. 

IPOINT is a pointer to a word or value in 
ITABLE. Its initial value will be 
the point in the table at which the 
search starts, and the ending value 
will be the position of the value it 
was seeking. 

Restriction : IPOINT must fall within 
the range of the table (0<IP0INT<N). 

Description: 

LOCLE checks the initial value of IPOINT to 
determine if it is greater or less than IVALUE, 
and thus determines which direction the pointer 
is to move. For example, if IPOINT is less than 
IVALUE, the pointer will move toward the end of 
the table; if greater, it will move toward the 
beginning of the table. 

Example: Given ITABLE=-999999,10,20,30,40,999999 

IP0INT=2 

I=L0CLE (35,ITABLE,IPOINT) 

Then 1=30 and 
IP0INT=4 

NOTE: If this routine is used in a loop, execution 
time will be minimized if IPOINT is not set to a 
constant inside the loop. This is especially true 
of sets of VALUE which are ordered sequentially. 
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11.5 Round Down Function - ROUNDD 


Rounds values down any time required. 

Calling Sequence: 

RESULT = ROUNDD (VALUE,FINTERVAL) 

Parameters Entered: 

VALUE is the number or value to be rounded. 

FINTERVAL defines the interval or position the 
number is to be rounded to. (Interval 
is 100 if the value is to be rounded to 
the next lower hundred). 


Description: 

Function ROUNDD rounds a value to the greatest 
multiple of the interval less than the value. 

Example: 1. If VALUE is between 201 and 299, 

and FINTERVAL is 100, the resulting 
value will be 200. 

2. If the VALUE is -130 and the FINTERVAL 
is 100, the resulting value will be 
- 200 . 


NOTE: When VALUE is a multiple of FINTERVAL, results are 
are unpredictable due to floating point roundoff 
errors. If an extra tic interval occurs at the end 
of a graph, the rounding constant is too large and 
should be modified by reducing the number of nines 
in the constant. In dealing with high precision 
numbers the tic mark labeling may be irregular; in¬ 
creasing the number of nines in the rounding constant 
may solve this irregularity. 
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11.6 Round Up Function - RQUNDU 


Rounds values up whenever required. 

Calling Sequence: 

RESULT = ROUNDU (VALUE,FINTERVAL) 

Parameters Entered: 

VALUE is the number or value to be rounded. 

FINTERVAL defines the interval or position 

which the number is to be rounded to. 
(Interval is 100 if the value is to be 
rounded to the next higher hundred.) 


Description: 

Function ROUNDU rounds the value to the least 
multiple of the interval greater than the value. 

Example: 1. If the VALUE is between 201 and 299, 

and the FINTERVAL is 100, the resulting 
value will be 300. 

2. If the VALUE is -130, the 
resulting value will be -100. 

NOTE: Due to floating point roundoff errors, results 
are unpredictable when VALUE is a multiple of 
FINTERVAL. If an extra tic interval occurs at 
the end of a graph, the rounding constant is too 
large and should be modified by reducing the number 
of inines in the constant. In dealing with high pre¬ 
cision numbers the tic mark labeling may be irregular 
increasing the number of nines in the rounding con¬ 
stant may solve this irregularity. 


4010A02 SYSTEM 


117 



11.7 Base Finding Function - lOTHER 


Determines the opposite base. 

Calling Sequence: 
lOTHER (NBASE) 

Parameters Entered: 

NBASE is the axis pointer, or the location in 
COMMON of the first item referring to 
the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 

Description: 

Most subroutines are written to function for 
either the X or the Y axis. lOTHER provides 
information about the other axis. For example, 
when working on the Y grid lines, it is necessary 
to discover the limits of the X axis. 
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SECTION 12 


CALENDAR SUBROUTINES 

The Universal Business Graphing Calendar (UBGC) is designed 
to allow for irregularities in the calendar by providing a 
continuous numbering of days from January 1, 1901. The 
basic routines which provide conversion of calendar dates 
into UBGC days or vice versa, and year-day format to and from 
year-month-day are described in detail in section 4.3. 


The general sequence used in preparing calendar data for 
plotting is as follows. CMNMX computes the data minimum 
and maximum in UBGC values and stores them in COMMON. 

COPTIM obtains these values, uses CALCON to convert the 
values from UBGC values to calendar values and rounds them 
to "neat" calendar values. It then stores the label 
minimum and maximum, converts the new data minimum and 
maximum into UBGC and replaces the old data minimum and 
maximum in COMMON with the newly rounded values. 

CALPNT and CALCON require history to be kept. That is, they 
decode the calendar array and holds the information through 
future executions in variables ISTYR, IWEEKl, ISTPER, NODAYS, 
and ICLTYP for CALPNT and in variables FNODAY and IWEEKl for 
CALCON. 
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CALENDAR CONVERSION 
SCHEME 


COMMON 

TABLE COPTIM 



Figure 14 
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12.1 Calendar Data Obtaining Function - CALPNT 


This function provides the actual calendar data 
values to be plotted. 

Calling Sequence: 

VALUE = CALPNT (ARRAY,I) 

Parameters Entered: 

ARRAY is the name of the calendar array. 

I is the data point for which a value 

is needed. 

Description: 

This function, used by DATGET, is the data 
array in calendar form. It checks the number 
of periods per year and makes the necessary calls 
to provide the correct UBGC (Universal Business 
Graphing Calendar) value for that point. 

Variables ISTYR, IWEEKl, ISTPER, NODAYS, and 
ICLTYP contain decoded calendar array information 
and remain unchanged through subsequent executions. 
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CALENDAR CONVERSION 



Figure 15 
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12.2 Calendar Conversion Subroutine - CALCON 

Converts calendar label minimums and maximums from 
virtual day space to the space in which the labels 
are to be written, or vice versa. 

Calling Sequence: 

CALL CALCON (AMIN,AMAX.LABTYP,GET) 

Parameters Entered: 

AMIN is the calendar data label minimum 

in either UBGC day space or space in 
which to be labeled (years, periods, 
months, etc.) 

AMAX is the calendar data label maximum in 

either virtual day space or space in 
which to be labeled (years, periods, 
months, etc.) 

LABTYP is the label type (year, day, month, 
etc.). 

GET is a logical flag where: 

TRUE requires conversion from UBGC 
day space to label space. 

FALSE requires conversion from label 
space to UBGC day space. 

Description: 

CALCON is called by COPTIM to convert the data 
min and max in UBGC to data min and max in 
label units. COPTIM then uses the neat algorithm, 
rounding the min down and the max up if necessary, 
thus defining the label min/max which are stored 
in the table. CALCON is then called a second 
time to convert the label space min/max to UBGC. 
These values are now the limits of the virtual 
space window. 

Variables FNODAY and IWEEKl contain decoded 
calendar array information and remain unchanged 
through subsequent executions. 

This routine must be called with GET = TRUE the 
first time. 
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CALENDAR CONVERSION 



Figure 16 
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12.3 Month Positioning Subroutine - MONPOS 


Determines the positions of monthly tic marks for 
calendar data. (The lengths of months vary, so 
the distances between monthly tic marks also vary.) 

Calling Sequence: 

CALL MONPOS (NBASE,IY1,DP0S,SP0S) 

Parameters Entered: 

NBASE is the axis pointer, or the location 
in COMMON of the first item referring 
to the X or Y axis, whichever is here 
indicated. (IBASEX or IBASEY provides 
this location.) 

lYl the year in which the grid begins. 

DPOS The month in virtual space relative to 

the beginning year. 

Parameters Returned: 

SPOS screen position of the end of the 

month. (Tic Mark position.) 


Description: 

This subroutine uses the Universal Business 
Graphing Calendar (UBGC) to determine the 
precise length of each month plotted and the 
position for each monthly tic mark. MONPOS 
then calls GLINE which plots the tic marks and 
grid lines. Monthly tic marks are the only ones 
not drawn with subroutine GRID. 
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12.4 Calendar Data Minimum and Maximum Subroutine - CMNMX 


Determines the minimum and maximum of calendar data 
in UBGC days. 

Calling Sequence: 

CALL CMNMX (ARRAY,AMIN,AMAX) 

Parameters Entered: 

ARRAY is the data array for which the minimum 
and maximum are to be found. 

Parameters Returned: 

AMIN is the minimum array value in UBGC 

values. 

AMAX is the maximum array value in UBGC 

values. 

Description: 

CMNMX finds the data minimum and maximum for 

calendar arrays. 
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CALENDAR CONVERSION 
CMNMX 



Figure 17 
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12.5 Leap Year Update Subroutine - LEAP 
Updates the leap year variable. 

Calling Sequence: 

CALL LEAP (YEAR) 

Parameters Entered: 

YEAR is the year to be used in updating 

the UBGC leap year variable. 


Description: 

When passed a year in the format YYYY, this 
routine determines if the year is the same 
as for the last date processed. If the year 
is different, the routine determines if it is 
a leap year and updates the variable in BPPl 
COMMON. 
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SECTION 13 


PRUNING (REMOVAL OF UNNEEDED FEATURES) 

The procedure for removing unneeded portions of the system to 
save storage is referred to as "pruning". Pruning has been 
divided into two levels. At the first level (A level), the 
package size is reduced without code modification. The second 
level (B level), provides additional reduction but requires 
code modification. 


4010A02 SYSTEM 


13-1 



13.1 A-Level Pruning 


This form of package size reduction involves no code modification. 
The size is reduced by excluding some subroutines entirely and 
replacing others with dummy routines. A dummy routine must 
have the same name and arguments as the subroutine it replaces, 
and contain RETURN and END lines. A function must also contain 
an ASSIGNMENT statement, such as 

CALPNT =0. 


for the function CALPNT. 

The following list contains the names of the subroutines which may 
be eliminated. Those which require a dummy replacement are followed 
by an asterisk. Refer to the system flow chart for the number 
and type of arguments. 

The number of words saved indicated here is based on compilation 
of the DEC PDP-10. The number of words saved may vary widely 
depending on the type of computer used. 


Features Eliminated Words Saved Subroutines Eliminated 


Bar Graphs 

Approximately 517 

BAR * 
FILBOX 

Error Recovery 

70 

ERREC * 

Software Plotting 

Symbols (TEKSYM) 

307 

TEKSYM * 

Logarithmic Plots 

121 

LOGTIX * 

Calendar Axis 

1,764 

COPTIM * 

CALCON 

CALPNT * 

MONPOS * 

GLINE 

YDYMD 

YMDYD * 

LEAP 

OUBGC * 

LOCGE 

lUBGC 


* These subroutines require dummy replacements. 
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13.2 B-Level Pruning (Elimination of Unneeded Code Blocks) 

Under each heading, edit the named routines as shown. Code with a 
solid bar I to t he left of column one is to be deleted; code with 
a shaded bar(8®to the left of column one is to be modified as shown 
in the second copy of the code. 

Reduction - savings in core size can only be estimated. Savings 
shown are in addition to savings from A-level pruning mentioned 
above. 

If a feature is to be eliminated with B-level pruning, comparable 
changes need not be made at A-level. 

Each change is described independently. If the same line is 
changed for several prunings, the changes should be made 
accumulatively. For example, to eliminate calendar axis, the 
line 


GO TO (100, 200, 300, 400, 500), KEY 
is changed to 

GO TO (100, 200, 100, 400, 500), KEY 

To eliminate user defined plots, the same line is changed to 

GO TO (100, 200, 300, 100, 500), KEY 

If both calendar axes and user defined points are to be pruned, 
the resulting line should reflect both changes 

GO TO (100, 200, 100, 100, 500), KEY 

CAUTION: Be selective in the elimination of code. Eliminate 
only that code which is truly unnecessary to your 
operation. 



Feature Eliminated: 
Saves : 

Modified Subroutine: 


Bar Charts 

1 dunmy routine (BAR) and 
1 line of FORTRAN code 

CPLOT 


Note: If these changes are made, the A-level changes for 
bar charts are unnecessary. 


Modification to CPLOT 
Delete Indicated Lines: 


XPOINT*OATGET< X, 1, KEYX > 

YP0INT*«<»»TCET< Y, 1, KEYY > 

C » MOUE TO FIRST DATA LOCATION 
CALL MOUEACXPOINT.YPOINT) 

IFC LINE . LT “10 >CALL ULINE< XPOINT. YPOIHT.. 1 > 

I IF<LINE .E0.-2 OR. LINE .EQ.-3>CALL BAR^XPOIHT,^POINT,LINE> 

IF< SYMBOL > CALL BSYMS< XPOINT. YPOINT, ISYM> 

C t THE FOLLOWING CODE PREPARES BRANCHES FOR THE 
C TYPE OF LINE TO BE USED IN THIS PLOT 
C * IF LINE GREATER THAN 4 DASHED IS ASSUMED 
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Feature Eliminated: 
Saves : 

Modified Subroutine: 


Error Recovery 

1 dummy routine (ERREC) and 
6 lines of FORTRAN code 

BINITT 


Note: If these changes are made, the A-level changes 
for error recovery are unnecessary. 


Modification to BINITT 


Delete indicated lines: 

C » NBASE+26 C<X Y>F»MIN CALCULATED DATA tllHIHUM 
C » NBASE+27 C<X-'Y>Af1AX CALCULATED DATA ITAXIMUM 
C *-IF NBASE a X OR Y PARIt UECTDR POINTER 

■ CALL CSI2E<IH, IM> 

IFCIH EG. CALL IWim 120> 

IF<IH .EQ. 0)GALL ERREOCl> 

XTENTCa? 

XTENTX=28 

XTENTY=XTENTX 

POINTRa? 


Modification to CHECK 


Delete indicated lines: 


REAL XC2>.Y<2> 

COMMON /BPPCOM^' COMGETC«0> 

fc » FOLLOWING CODE INSURES THAT BtHlTT HAS BEB« CALLED 
r IFt;COMGET< 1 > GE. 50. > GO TO 100 

I CALL BINITT 

I CALL ERRECC2) 

100 NBASE=IBASEX< 0 > 


DO 300 1=1.2 

C T FOLLOWING CODE CALLS TO ^T CALENDAR TYPE 
IF<I EQ. 1>CALL TYPCK<NBASE.X> 
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Feature Eliminated: Calendar Axes 


Saves : 5 dummy routines (COPTIM, CALPNT, 

MONPOS, YMDYD, OUBGC) and 47 lines 
of FORTRAN code 


Modified Subroutines: 


1. FUNCTION DATGET 

2. LABEL 

3. CHECK 

4. TYPCK 

5. MNMX 

6. REMLAB 


Note: If these changes are made, the A-level changes 
for calendar axes are unnecessary. 


Modification to FUNCTION DATGET 


Change from: 

C« BCAWiERTOri. OREGON 

C)*: ROUTINE ‘ DATGET 

^‘» 

FUNCTION DATGETfARR.I.KEV) 

REAL ARR(5) 

ii GO TO (100.200.300.400.500).KEY 

C * STANDARD DATA FORMAT 
100 D-ARR(I+1) 

GO TO 600 

C *. STANDARD SHORT FORM DATA FORMAT 


To: 


C« »CAUERTON.OREGON 

C* ROUTINE• DATGET 

C:4c«)|:«»X)K«4(««3li)(;T»:tc:|cX»X3|:XX:tcXX»x:K«R:Mt««X4;3|c«4C4c:l:x:(cTX:4ot::t(« 
FUNCTION DATGET < ARR.I.KEVI 
REAL ARR(5) 

GO TO <100.200.100.400.500).KEV 
C * standard data FORMAT 
100 D-ARR(I+1) 

GO TO 600 

C » STANDARD SHORT FORM DATA FORMAT 
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Delete indicated lines: 

GO T 0 600 

C STANDARD SHORT FORM DATA FORMAT 
200 D=ARR«C 3 >+AKf?< 4 >:4 FL OATC I --1 > 

GO TO 600 

1 C; * SHORT FORM CALENDAR FORMAT 
300 D=CALPNTCARR .. I > 

GO TO 600 
C T USER FORMAT 
400 D=UPOINTC ARR.I/OLDONE > 

GO TO 600 
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Feature Eliminated: Calendar Axes (continued) 

Modification to LABEL 
Delete indicated lines: 



*■ SET UP INTRA LOOP BRANCH ACCORDING TO LABEL TYPE 
ASSIGN 180 TO LABLE 
MONTH LABEL-6 > DAY LABELS • 3 

IFfLABTYP EG. 6 .OR. LABTYP .EG. 3)ASSI0N 190 TO LABLE 
» NECATIUE LABEL TYPES FOR USER URITTEN LABEL ROUTINE 
IFiLABTV'O lT. OASSIGN 170 TO LABLE 


DP0S*DHIR 

C ♦ !F calendar imc 18 NOT llliBlIHlI 

IP< .NOT.CAL> GO TO 
I YOFF= IYOFF-*-1YOFF 

CALL 0UBGC<IYl..ID.IFlX<C0MGntf«A8E-Ml>>> 

DPOS*DPOS+DINT 

SPOS=SPOS+SINTU 

ILIM=lLIf1-l 

C » MAIN LABELING LOOP 
150 DO 400 1=1.. ILIM.. ISTEP 

FNUM=AriOD< DPOS-1 .. AMODCK LABTYP > >+1. 

GO TO LABLE 

C * USER WRITTEN LABELING OPTION 


Change From: 

ILIM-ILiri-l 

C * MAIN LABELING LOOP 
150 DO 400 l-l,ILin, ISTEP 

IF(LABTYP GT. 0 )FNUn-AMOD(DPOS-l . AMODDCLABTYP ) )-*-l. 
GO TO LABLE.C170.180,190) 

C » USER URITTEN LABELING OPTION 

170 CALL USESET(DPOS.lUIDTH.NBASE.LABELI) 

GO TO 195 




ILin-ILIM-l 

C » MAIN LABELING LOOP 
150 DO 400 I-l. ILIM, ISTEP 

IF(LABTVP GT 0 )FNUM-AMOD(DPOS-l , AMODDCLABTYP) ) + l 
^ GO TO LABLE.(170,180) 

C » USER URITTEN LABELING OPTION 

170 CALL USESET(DPOS.lUIDTH.NBASE.LABELI) 

GO TO 195 
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Feature Eliminated: 


Calendar Axes (continued) 


Modification to LABEL 


Delete lines indicated: 


GO TO LAtLE.<17«.189.190) 

C » USER URXTTCN LA9CLXNQ ORTZON 

178 CALL USE8CT(DR0S.tUIDTH.NBASE.LA8ELI) 

00 TO 105 

C « QENCRATC NUfICRZC LABEL STRING 

188 CALL NUnSET(FNUn»FAC.IUXDTH.NBASE.LABELI.IBLANK) 
GO TO 196 

C « GENERATE NONTH OR DAV ALPHA STRING 

198 CALL ALRSETCFNUn.ZUZDTH.LABTVP.LABELI) 

tF(LABTyP EG 6>CALL MONPOSCNBASE.XVi.DPOS.SPOS) 

C » COMPUTE JUSTIFXCATION OFFSET 

195 CALL JUSTER<IU1DTH,LABELX.IP0S1T.IBLANK.LEN,X0FF) 
XBEGIN • XUXDTH-LEN 
XF (VAXIS) GO TO 888 
XTEM-LEUELl 

C T X AXXS LABELS MAY BE STAGGERED 

IF (STAGER AMD EWEN ) XTEM-LEVELa 
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Feature Eliminated: 


Calendar Axes (continued) 


Modification to CHECK 


Change from: 


IF<I ee. 1>CALL TYPCKCNBASE,X> 

IFCI .EQ. 2>CALL TYPCK<NeAS£,Y> 

C 4c THIS SECTION SETS THE RANGE <MINIMUM AND MAXIMUM> FOR X Y 
IF<I .EQ. 1>CALL RGCMEK< HBASE#X > 

IFCI EQ. 2X.ALL RGCHEK<NBASEiY> 

CALL optim<:nbase> 

CALL WIDTHSNBASE> 

STAG=COMGET< NBASE+20 > 

IFCSTAG HE. l.> GO TO 200 
CALL SPREAD<NBASE> 


To: 


IF<I EQ. 1>CALL TYPCKCNBASE,X> 

IF<I EQ. 2>CALL TYPCKCNBASE,Y> 

C » THIS SECTION SETS THE RANGE (MINIMUM AND MAXIMUM> FOR X 8. Y 
IF(I .EQ I >CALL RGCHEK(NBASE, X > 

IF(I .EQ. 2 >CALL RGCHEK< NBASE, Y > 

CALL LOPTIM<NBASE> 

CALL WIDTH<NBASE> 

STAG=COMGET(NBASE+20 > 

IFCSTAG HE. 1 . > GO TO 200 
CALL SPREAD< NBASE > 


Delete indicated 1 ines; 


CALL BINITT 
CALL ERREC<2> 

100 NBASE=IBASEX':0> 

DO 300 1*1,2 

r t FOLLOWING CODE CALLS TO SET CALENDAR TYPE 
1 Ft; I . EQ. 1 >CALL TYPCKC NBASE, X > 

IF<I .EQ. 2 3CALL TYPCK(NBASE,Y> 

C t THIS SECTION SETS THE RANGE (MINIMUM AND MAXIMUM> FOR X «. Y 
IF(I EQ 1>CALL RGCHEKC NBASE, X> 

IF(I EQ 2 >CALL RGCHEKC NBASE, Y) 


Modification to TYPCK 
Delete the entire subroutine 
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Feature Eliminated 


Calendar Axes (continued) 


Modification to MNMX 


Delete indicated lines: 


lFCNONSTD)NLin-NPTS 
IF<NONSTDJNSTPRT-1 

IF(NONSTD OR ARRAY(l) GE. 0 .) GO TO 300 
ISET-ABS<ARRAY(1)) 

IFdSET.EO.l) GO TO 100 
I IF(lSET.EO.a) GO TO 20© 

0 * USER DEFINED NIN/MAX ROUTINE 
CALL UMNNXCARRAY,AMIN.AMAXJ 
GO TO 600 

C *. SHORT FORM LINEAR DATA ARRAY 


lee 



30C1 

C 


XMAX*ARRAY< 3 >+< ARRAYS 2 >—1 >^ARRAy( 4 > 
AMIN^AMIHK ARRAVC 3 >,XMAK. AmN> ^" 

amax=amaj:i<: arrav< 3 >, xmaX/ amax > 

GO TO 600 

CALENDAR SHORT FORM ARRAY 
CALL CMNMX':; ARRAY.. AM IN.. AMAX ) 

GO TO 600 


STANDARD AND NON-STANDARD LONG FORM ARRAY 
DO 400 I=NSTART .. NLIM 

IF DATA UALUE EQ TO MACHINE INFINITY-UAUIE 


CONSIDERED MISSING DATA 
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Feature Eliminated: 


Calendar Axes (continued) 


Modification to REMLAB 


Delete indicated lines 


XAXIS-NBASE EQ. ZBASEXCB) 

C » SET JUSTIFICATION ACCORDING TO AXIS AND SIDE 
IPOSlT-e-ISIGN(1,ILOC-1) 

IF(XAXIS)IPOSIT-ICENTR 

C » IF NON-CALENDAR - PUT OUT A SCALE FACTOR 
LABTVP-IABSCLABTVP) 

IF(LABTYP EG. 1) GO TO 400 
C X RENOTE YEAR LABEL FORMED HERE 
ISTART-aS 

CALL 0UBGC(IYl,lDl.IFIX(C0f1GET(NBASE+ll))) 

CALL 0 UBQC(IV 2 . 1 Da,lFIX(C 0 M 0 ET<NBASE-Ha))) 
IFdDE LE. l)lYa-IYa-l 
iDa-iDa-1 

* IF GRID SPANS A YEAR BOUNDARY 

BOTH START AND END YEAR ARE WRITTEN 
IFdYl GE lYa) GO TO 300 
C t SET UP TO PRODUCE ENDING YEAR PART OF STRING 
lY-IYE 
ID-ID2 
GO TO 335 

C * SET UP TO PRODUCE START YEAR PART OF STRING 
300 lY-IYl 
ID-IDl 

325 ISTART-ISTART-4 
C T PRODUCE YEAR PART OF LABEL 

CALL lF0RM(FL0ATdY),4,LABELIdSTART)dBLANK) 

C » PRODUCE MONTH AND DAY IF LABEL TYPE IS DAYS 
IF(LABTYP NE 3) GO TO 350 
lSTART-ISTART-1 
LABELI dSTART )-IBLANK 
CALL YDYMDdYdD.IY3-M0N,IDAY) 

IY-IY3 

ISTART*ISTART—3 

CALL ALFSET(FL0AT(M0N),3,6.LABELIdSTART) ) 

ISTART-ISTART-1 

LABEL1dSTART)-IBLANK 

1START"ISTART—a 

CALL IFORM(FLOAT(IDAY ),2.LABELI(ISTART),IBLANK) 
350 IFCIY EG. lYl ) GO TO 450 
ISTART-1START-1 
LABELI dSTART)-45 
GO TO 300 

C » CODE TO PRODUCE SCALE FACTOR TYPE REMOTE LABEL 
400 IEXP-C0MGET(NBASET18) 

IFdEXP .EG 0) GO TO 500 

CALL EXPOUT(NBASE.lEXP,LABELI,25.IBLANK) 

ISTART-1 

C * COMPUTE JUSTIFICATION OFFSET 
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Feature Eliminated: 


Logarithmic Plots 


Saves : 1 dummy routine (LOGTIX) and 

25 lines of FORTRAN code 

Modified Subroutines: GRID 

LOPTIM 

Note: If these changes are made, the A-level changes 
for logarithmic plots are unnecessary. 


Modification to GRID 


Change from: 

v; » THIS IS THE V AXIS TIC MARiaNQ LOOP 
DO 300 I-1,NLIM 
IF(NOMTIX> GO TO 300 
MLin-MTICS-l 
BOTfl-BOT 

iil00 IFCriLIM >190.200. 110 

.110 BOTfl-BOTM+TMISTUL , 

CALL nOUABSCMSTARt. IFIXCBOTM)) 
CALL DRIJABS (MEND. IFIX (BOTH)) 
flUfl-MLIM-l 


C * THIS IS THE V AXIS TIC MARKING LOOP 
DO 300 I-I.NLIM 
IFCNOMTIX) GO TO 200 
MLlM-MTICS-l 
, BOTM-BOT 

:^100 IF<MHn >200.200. 110 

110 BOTn-BOTn+TMNTML 

CALL nOMABSCMSTART.IFIX(BOTW)) 
CALL DRUABS(MEND.IFIX<BOTH)) 
MLIM-MLIM-l 


Delete indicated lines: 


110 BOTM*BOTM+TMNTUL 

CALL MOWBS< MSTART. IFIX< BOTH > ) 

CALL DRMABS< MEND.. IFI X< BOTM ) ) 

MLIM=MLIM-1 
GO TO 100 

|190 CALL LOGTIX<NBASE..BOT.TINTUL.MSTART.MEND) 
200 BOT*BOT-t-TINTUL 

CALL MOUABSCISTART.IFIXCBOT)) 

300 CALL DRWABSCIEND.IFIX<80T)) 

C T THE FOLLOWING CODE DRAWS THE X AXIS 
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Feature Eliminated: 


Logarithmic Plots (continued) 


Modification to GRID (continued) 


Change from: 

c * THIS IS THE X fvxis TIC muiKim %oc^ 
DO 709 I-1,NLIM 
IFtNOHTlX) GO TO 600 
MLin-HTICS-l 
XLEFTM-XLEFT 

ii500 IFCnLiri)590,600.510 

.510 XLEFTM-XLEFTM+TriNTUL 

CALL MOOABS(IFIX < XLEFTM),MSTART) 
CALL DRlJABSCIFIX(XLEFTri),mEND) 
MLIM-riLim-l 


To: 


c » THIS IS THE X AXIS TIC HARKING LOOP 
DO 700 I«l,NLiri 
IF(NOnTIX) GO TO S@@ 

HLIH-NTICS-1 

XLEFTH-XLEFT 

S:S500 IF<tnLiri)6C0.600,510 

.510 XLEFTH-XLEFTM+THNTOL 

CALL nOUABSCIFIXtXLEFTM) -flSTART) 
CALL DRlJABS(IFIXCXLEFTri).nEND) 
MLIN-MLIN-l 


Delete indicated lines: 


510 XLEFTM=XLEFTM+TMNTUL 

CALL nOUABSCIFIX< XLEFTM >,MSTART > 

CALL DRWABS<IFIX< XLEFTM >.MEND > 

MLIM=MLIM-1 
GO TO 500 

1590 CALL LOGTIXCNBASE.XLEFT.TINTOL,MSTART,Mef40> 
600 XLEFT*KLEFT+TINTUL 

CALL MOUABS<IFIXC XLEFT >,ISTART > 

700 CALL DRWABSCIFIXCXLEFTIEND> 

800 RETURN 


@ 


4010A02 SYSTEM 


13-13 






Feature Eliminated 


Logarithmic Plots (continued) 


Modification to LOPTIM 


Delete indicated lines: 


AMIN=COMGET< HBASE+11> 

AMAX*COMGET< NBASE+12 > 

NTICS=NORIG 

C * SET DEFAULT MINOR TICS TO FIRST ENTRY IN TABLE 
1=1 

1200 IFC .NOT.LOO GO TO 250 

C ;* FOLLOWING CODE PROTECTS AGAINST ATTEMPTING TO FIND LOG OF ZERO 
AM I N=AM AX 1 <; AM IN.. 1 . y F INFIN > 

AMAX=ALOG10<: AMAX > 

AMIN=ALOG10< AMIN >+0.0000001 

C » COMPUTE DATA RANGE 

C ■*. FOLLOWING CODE IS PART OF LOOP TO ADJUST SCALE TO EXISTING TIC MAR 

250 RANGE=AMAX-AMIH 
AMINOR*AMIN 
AMAXOR=AMAX 

C :♦ CHECK TO SEE IF NUM OF TICS ALREADY SPECIFIED 
IF<NTICS NE. 0> GO TO 300 


C t. REDUCE NO. OF MINOR TICS IF DENSITY NOT HIGHEST 
IF<IDEN .LT. 9;;'MTCS=5 
IFCIDEN ,LT. ?>MTC3=2 
IF<; NOT .LOO GO TO 506 
:: * COMPUTE MINOR TICS FOR LOG AXES 
ITINT=TINT 
LTINML=LENNTICS 

C t. SINGLE DECADES ARE NOT SUBDIUIDEO BY MINOR TICS 
IF<ITINT EQ. 1> GO TO 450 

C t START WITH APPROXIMATION EQUAL TO THE NO. OF DECADES PER MAJOR INT. 
MTCS=ITINT 

C t. COMPUTE MAX NO. OF MINOR TICS BASED ON DENSITY 
MXTC.S=10*LTINUL/^^IDIU 

C find no OF TICS < MXTCS WHICH DIUIDE THE DATA INTERUAL EUEHLY 
LIMTIX=ITIHT-1 
DO 445 I=1 .LIMTIX 
MTCS*ITINr^I 

I F<; MTCS* I . NE. ITI NT > GO TO 445 
IFc MTCS LE. MXTCS > GO TO 500 
445 CONTINUE 

C 4 NO SUITABLE NUMBER FOUND - NO MINOR TICS SPECIFIED 
MTCS=0 
GO TO 500 

C t IF THE SCREEN IHTERUAL LARGE ENOUGH - LOG TIX ARE DRAWN-MTICS*-! 
450 IFCLTINUL GE. 100>MTCS=-1 

C 4 IF SPACE ALLOWS.. LOG TICS ARE LABELED-NO. OF MINOR TICS *-2 
IFa.TINUL GE. 350>MTCS=-2 
C ;4 SET NUMBER OF MINOR TIC INTERUALS 
500 CAL .L COMSETC NBA.SE+8»FLOAT< MTCS > > 

C GIUE EXTRA DECIMAL DIGIT FOR NON NEAT LABLES 

C ♦; STORE POSITION OF LEAST SIGNIFICANT DIGIT IN CABLE 
600 CAL L COMSETC NBASE+16.. FLOAT< LSIG > > 

C 4 STORE NEW DATA LIMITS < AS WILL APPEAR OH LABLES 
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Feature Eliminated: Logarithmic Plots (continued) 

Modification to LOPTIM (continued) 


Delete indicated lines: 


IFCLTIW.»L GE 350>MTCS=-2 
C % SET HUMBER OF MIHOk TIC INTERUALS 
500 CALL COMSETC NBASE+8,FLOAT< MTCS > > 

C GIUE EXTRA DECIMAL DIGIT FOR NON NEAT LABLES 

C A- STORE POSITION OF LEAST SIGNIFICANT DIGIT IN LABLE 
600 CALL CONSETX NBASE+16.. FLOAT< LSIG > > 

C ♦; STORE NEW DATA LIMITS f.AS WILL APPEAR ON LABLES 
CALL COMSETCNBASE+26..AMIN > 

I CALL C:0MSET'::HBASE+27..AMAX> 

NOT.LOO GO TO 700 

C RESTORE DATA MIH^MAX IF ALTERED FOR LOGS 
AMAX=10.**AMAX 
AMIN=10.;*::»;hMIN 

C %■- STORE NEW DATA LIMITS AS WILL DEFINE GRID 
700 CALL COMSETC NBASE+11,AMIN > 

CALL COMSETC NBASE+12.AMAX > 

RETURN 

END 
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Elimination of Exponential Labels 

The following changes eliminate various types of exponential 
labels. These are used not only for logarithmic tic marks, 
but also for remote labels if tic mark labels are too long 
for the space available. Therefore, it would not be wise 

to eliminate a 11 forms of exponential output. Refer to 
Section 3.2.19, for a description of ail exponent types. 
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Feature Eliminated: Exponential Output 

Form M, MM, etc. 

Saves : 9 lines of FORTRAN code 


Modified Subroutine: EXPOUT 


Modification to EXPOUT 


Delete indicated lines: 


1CHARS-NCHARS 
IFCNEXP GT. 9) GO TO 300 
IFCNEXP EQ. 0) GO TO 460 
C * TYPE 4- 1 FOLLOWED BY EXPONENT OF ZEROS 
IFCITYPE EG. 4) GO TO 400 
C * TYPE 3' EXPONENT EOUIUALENT WRITTEN OUT 
IFdTYPE EG. 3) GO TO 100 
C t TYPE 2- n-THOUSANDS fltn-MILLIONS 
IFCITYPE EG. 2) GO TO 200 
C » TYPE !■ (DEFAULT) X10 TO THE EXPONENT 


120 IF<LOG EQ. 2>I=I--1 
NNN=I-1 

DO 125 III=N..NNN 
IARR A Y< I CHARS >= I TEH< I > 

1 = 1-1 

125 I CHARS--1 CHARS-1 

GO TO 800 

p * M - NM PROCESS ING--N0N3 OR N0N6 GO TO DEFAULT 

200 iF<;M0Df:HE;:p..3> . ne. ©> go to 300 

I ARRAYS I CHARS !^=83 
I ARRAY-:: I CHARS-1 >=39 
ICHARS=ICHARS-2 
DO 210 III=3..NEXP,3 
I ARRAY-:; I CHARS >=77 
-10 ICHARS=ICHARS-1 
GO TO 800 

1 . *. : ;10 TO EXPONENT PROCESSING 

IF-:iEKP EQ. 1> GO TO 380 
IF'iNEKP LT. 10 > GO TO 350 
IFCNEXP LT. 100> GO TO 340 
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Feature Eliminated: Exponential Output Form 

HUNDREDS, etc. 

Saves : 40 lines of FORTRAN and 

31 words of storage 

Modified Subroutine: EXPOUT 

Modification to EXPOUT 

Delete indicated lines: 


C* COPYRIGHT TEKTRONIX^INC 1$73 

C» BERUERTON,OREGON 

C» ROUTINE: expout 


SUBROUTINE EXPOUT(NBASC.ICXP.lARRRV.NCHARS.IFILL) 
INTEGER ITENCaij^ lRRRRV(a> 

COMnON/'BPPCOn/^COAOET ( 80 ) 


IQETCBO) 


00 01 OB OB 04 06 06 07 08 OB 10 11 18 13 

T E N 6 H U N D R E D S 

/ y / / / V / V / / / / y 

DATA ITEN/'3S.84.69.78.83.72.86.78.68.88.69.68.83.38. 
84.78.39.85,83.65.78.68.83.77.73.76.76.73.79,78.83/ 
/ / / / / / y y y y y y y y y y y 

thousands niLLlO NS 
14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 

DATA JUP/-1/ 

ITVPE-C0MQET(NBASE*»-21) 

L0G«C0MGET<NBASE*H5 ) 

NEXP-IABS(IEXP) 

1CHARS-NCHARS 

IFCNEXP QT. 9) GO TO 300 

IF(NEXP EG. 0) GO TO 460 

TYPE 4 1 FOLLOUED BY EXPONENT OF ZEROS 

IFdTYPE EG 4) GO TO 400 

TYPE 3- EXPONENT EGUIUALENT URITTEN OUT 

IFdTYPE EG. 3) GO TO lOO 

TYPE 8- M-THOUSANDS IW-MILLIONS 

IFdTYPE EG. 2) GO TO 200 
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Feature Eliminated: 


Exponential Output Form 
HUNDREDS, etc. (continued) 


Modification to EXPOUT 
(continued) 

Delete indicated lines: 


C t 
C *■ 

lee 

c » 

101 


IpTfTvreVI! “PONeNT 

GO TO 300 

IFCNCHARS .LE. 17> CO TO 300 

OUTPUT^TENS^' 109>#>CKP 

N=1 


I=4+N 

^ ^ GO TO 120 
C * OUTPUT HUNDREDS 
102 N=5 


I=8+N 
GO TO 120 

C *: OUTPUT THOUSANDS 

103 N=14 
I=9+N 

GO TO 120 

C T OUTPUT TEN THOUSANDS 

104 Nj^=i3 
II«=10+NN 
N=1 
I=3+N 


GO TO 110 

C ;♦ OUTPUT HUNDRED THOUSANDS 

105 NN=13 
II=10+NN 
H=5 
I»7+N 

GO TO 110 

C » OUTPUT MILLIONS 

106 N»23 
I=8+N 

GO TO 120 

107 GO TO 300 

108 GO TO 300 

109 GO TO 300 

C »: COMMON CHARACTER SETTING LOOP FOR 2ND WORD 

110 NNN=II-1 

DO 115 III=NN..NNN 
lARRAYC ICHARS;>«ITEN< II ) 

II»II-1 

11*=; T T r'W^PQ—1 

cl COMMON CHARACTER SETTING LOOP FOR 1ST WORD 

120 IFCLOG .EQ. 2)I=I-1 

NHN=I-1 

DO 125 III=H,NNN 
IARRA YC I CHARS >» I TEW I > 

1 = 1-1 

125 ICHARS«ICHARS-1 
GO TO 800 

C * M MM PROCESSING—N0N3 OR NON6 GO TO DEFAULT 
200 IFCM00<NEXP/3> .NE. 0) GO TO 308 
I ARRA Y< I CHARS >«83 
IARRAY<ICHARS-1)»39 


ICHARS=ICHARS-2 
DO 210 III=3.NEXP>3 
IARR A Y< I CHARS >»77 
210 ICHARS=ICHARS-1 
GO TO 800 

C X10 TO EXPONENT PROCESSING 
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Feature Eliminated: 

Saves : 


Exponential Output Form 
1on, etc. 

25 lines of FORTRAN code 


Modified Subroutine: EXPOUT 


Modification to EXPOUT 


Delete indicated lines: 


connoN /Bppcon/ copiGExcse) 
ITVPE-COriGETCNBASE+ai ) 

L0G-C0riGET(NBASE+15 ) 

NEXP-IABSdEXPl 

ICHARS-NCHARS 

I IFCNEXP GT. 9) GO TO 300 

IFCNEXP EG. 0) GO TO 460 
C ifi type 4< 1 FOLLOWED BY EXPONENT or ZEROS 
IFCITVPE SO. 4) 00 TO 460 
C * type 3- CXPONERT EOUtt^ALBTT 
IFCITYPE EQ arOO'TO 106 
C * TYPE 8> ri»THOUSANOS MPP*Wlt\l6HS 
IFdTYPS, EG. a> GO to 666 

r * TYPE 1< <DEFAULT) X16 TO THE EXI»OHEHT 
IFCITYPE EO 1) GO TO 300 
GO TO 300 

100 IF<NCHARS LE. 17) GO TO 300 

GO TO (101.106.103.104,105.106.107.108.109).NEXP 
C * OUTPUT TENS 
101 N-1 

I-4+N 
GO TO 130 
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Feature Eliminated: 


Exponential Output Form 

10...0 


Saves 


4 lines of FORTRAN code 


Modified Subroutine: 


EXPOUT 


Modification to EXPOUT 


Delete indicated lines: 


1CHARS-NCHARS 

IFCNEXP OT. 9) GO TO 30« 

IF<NEXP EG. 0) GO TO 460 
C ^ TVPE 4 - 1 FOLLOWED BY EXPONENT OF ZEROS 
IFdTVPE EG. 4) GO TO 400 
C % TYPE 3= EXPONENT EGUIUALENT WRITTEN OUT 
IFdTYPE EG. 3) GO TO 100 
0 * TYPE 3' f1-THOUSANDS nri-HILLlONS 
IFdTYPE EG 2) GO TO 200 
C * TYPE 1' (DEFAULT) X10 TO THE EXPONENT 


IFCLOG .EQ. 2> CO TO 000 
IARRAY<ZCHARS>«88 
ICHARS-ICHRRS-J 
GO TO 800 

1 C « 1 FOLLOMEO BY ZEROS PROCESS 

400 DO 450 II1-1,HEXP 
IARRAYCICHARS >»48 
450 ICHARS®ICHARS-1 

460 IARRAY<ICHARS>*4S 

ICHARS»ICHARS~1 

800 IF< ICHARS .EQ. 0> GO TO 999 
IARRAy<lCHARS>»IFILL 
ICHARS®ICHARS-1 
GO TO 800 ■ 

999 RETURN 


@ 
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The following changes are to eliminate user written options. 
Refer to Section 14 to determine if any of these features 
should be eliminated. 

In the supplied AG-II package, the user routines ULINE, UPOINT, 
USERS, USESET, UMNMX, and SOFTEK are already dummy routines. 
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Feature Eliminated: User Defined Plot Lines 

Saves : 1 dumny routine (ULINE) and 

4 lines of FORTRAN 

Modified Subroutine: CPLOT 


Modification to CPLOT 


Delete indicated lines: 


C * GET FIRST DATf^ POINT 

}<POINT=DATGET< j : .. 1. KEYX > 

YPOINT=DATGET< Y .. 1 .• KEYY > 

C t MO',»E TO FIRST DATA LOCATION 
CALL MOl 'E A'" XPOI NT.. YPOI NT > 

I TFt LINE LT -lO >CALL ULINEC XPOINT.YPOINT,1> 

■ IF- LINE EQ -2 HR LINE .EQ.-3>CALL BARCXPOINT, YPOINT.LINE> 

IF' symbol :• CALL BSYMSC XPOINT> YPOINT. ISYM > 

C * THE FOLLOWING CODE PREPARES BRANCHES FOR THE 
C T TYPE OF LINE TO BE USED IN THIS F1_OT 


ASSIGN 5S0 TO LINES 


IF(LINE EG. 0) ASSIGN & 
IFCLINE EG. l)LINE-0 
IF(LINE EG.-2 OR. LINE 
IF (LINE EG. 4) ASSIGN 7: 
IF (LINE LT.-I0) ASSIGN 8' 
THE FOLLOWING IS THE CURUE 
11-ISTEPL+l 
ICOUNT-PETERS 
DO 900 I-Il.LIMIT,ISTEPL 


0) ASSIGN 600 TO LINES 
1 )LINE-0 , 

-2 OR. LINE EG.-3) ASSIGN 650 TO LINES 
4) ASSIGN 750 TO LINES 
10) ASSIGN 800 TO LINES 
IS THE CURUE PLOTTING LOOP 


Change from: 

C » THIS TRAP ALLOWS PLOTS TO SKIP MISSING DATA POINTS WHICH ARE 
C 'FILLED' WITH 'MACHINE'S INFINITY' UALUES 

IF(XPOINT GE. FINFIN) GO TO 900 
IFCVPOINT QE FINFIN) GO TO 900 
!i;l GO TO LINES. (550.600.650.750.800) 

■■ C » DRAW DASHED OR SOLID LINE 

550 CALL DASHA(XPOINT.VPOINT-LINE) 

GO TO 850 


C * THIS trap allows PLOTS TO SKIP MISSING DATA POINTS WHICH ARE 
C 'FILLED' WITH 'MACHINE'S INFINITY' UALUES 

IF(XPOINT GE. FINFIN) GO TO 900 
IFCVPOINT GE. FINFIN) GO TO 900 
GO TO LINES.(550.600.650.750) 

.C * DRAW DASHED OR SOLID LINE 

550 CALL DASHA<XPOINT,VPOINT.LINE) 

GO TO 850 
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Feature Eliminated 


User Defined Plot Lines (continued) 


Modification to CPLOT 
(continued) 


Delete indicated lines: 


GO TO 850 
C * PLOT POINT 

7S0 CALL POINTACXPOINT,VPOINT) 
GO TO 850 

C » USER WRITTEN LINE ROUTINE 
800 CALL ULINECXP0INT,VP01NT.I) 
850 IF(.NOT.SYMBOL) GO TO 900 
ICOUNT-ICOUNT-1 
lF<ICOUNT GT. 0) GO TO 900 
ICOUNT-ISTEPS 


@ 
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Feature Eliminated: 
Saves : 


User Defined Point Plots 

1 dummy routine (UPOINT) and 

2 lines of FORTRAN code 


Modified Subroutine: 


FUNCTION DATGET 


Modification to DATGET 


Change from: 


BEAUERTON.OREGON 

C» ROUTINE DATGET 

C*:lc*5ic:»c»»*****»»»»*»*:i:»****»*5t:lt*»i|c«:|c***»*)|c5|c**)|cit***»* 

FUNCTION DATGET< ARR- I,KEY) 

ARR (5 ) 

GO TO (100,200,300,400,500),KEV 
""C m STANDARD DATA FORMAT 
10O D»ARR(I+1) 

GO TO 600 

C 1C STANDARD SHORT FORM DATA FORMAT 


C» BEAUERTON.OREGON 

C* ROUTINE' DATGET 

FUNCTION DATGET(ARR,I.KEY) 

REAL. ARR(5) 

GO TO (100.200.300,100,500),KEY 
C t STANDARD DATA FORMAT 
100 D-ARR(I+1> 

GO TO 600 

C * STANDARD SHORT FORM DATA FORMAT 


Delete indicated lines: 

GO TO 600 

C * SHORT FORM CALENDAR FORMA1 
300 D=CALPNT< ARR # X > 

GO TO 600 

f t USER FORMAT ^ . _ 

00 D=UPO I NT< ARR, I > OLDQW^ 

GO TO 600 

C t NON-STANDARD DATA FORMAT 
500 D=ARRc; I > 

600 OLDONE=D 
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Feature Eliminated: 
Saves : 

Modified Subroutine: 


User Tic Mark Labels 

1 dummy routine (USESET) and 
3 lines of FORTRAN code 

LABEL 


Modification to LABEL 


Delete indicated lines: 


C * SET UP INTRA LOOP BRANCH ACCORDING TO LABEL TYPE 
ASSIGN ISO TO LABLE 
C * nONTH LABEL-6.DAV LABELS - 3 

IFCLABTVP EQ 6 OR. LABTVP EG. 3 )ASSIGN 190 TO LABLE 

r :*: NEGATIVE LABEL TYPES FOR USER WRITTEN LABEL ROUTINE 
IF (LABTVP LT 0)ASSIGN 170 TO LABLE 
DPOS-DMIN 
SPOS-SmiN 

C IF CALENDAR DATA. FIRST TIC NARK IS NOT LABELED 
IFf nT CAL) GO TO 150 


C ♦ MAIN LABELING LOOP 
150 DO 400 I = 1..1LIM,ISTEP 

FNUM=AMOD< DPOS-1 ., AMOOOC LABTVP > >•► 1 . 

GO TO LABLE 

1C » USER WRITTEN LABELING OPTION 

ll?0 CALL USESET<FNUM.. IWIDTH/NBA8E.LABELI > 

I GO TO 195 

C ♦ GENERATE NUMERIC LABEL STRING 

180 CALL NUMSETC FNUMTFAC. IMIDTH. MBASE.LABELI. IBLANK > 
GO TO 195 


Change from: 

ILIM-ILIM-l 

C » MAIN LABELING LOOP 
150 DO -400 I-l, ILiri, ISTEP 

IF (LABTVP GT. 0)FNUM-AriOD(DPOS-l ,AMODD( LABTVP) )+l 
WM GO TO LABLE,(170,180.190) 

-1 » USER WRITTEN LABELING OPTION 

170 CALL USESET<DPOS.IWIDTH.NBASE.LABELI) 

GO TO 19S 


ILin-ILlM“l 

C * NAIN LABELING LOOP 
ISO DO -400 l-l.lLIM.ISTEP 

^ IF(LABTVP GT. 0 )FNUM-AMOD(DPOS*-l ., AMODD( LABTVP ) )+l 

m GO TO LABLE,(180,190) 

C * USER WRITTEN LABELING OPTION 

170 CALL USESET(DPOS,IWIDTH.NBASE.LABELI) 

GO TO 195 


@ 
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Feature Eliminated: 


User Symbols 


Saves : 1 dummy routine (USERS) and 

2 lines of FORTRAN code 


Modified Subroutine: BSYMS 


Modification to BSYMS 


Delete indicated lines: 


SUBROUTINE BSYflS (X . V , ISVn ) 
LOGICAL GENFLG 
CALL PCLIPT<X,Y) 

I IFdSVn LT 0) GO TO 200 

IF(GENFLGfl)) GO TO 500 
IFdSVm LT 33) GO TO 100 
IFdSVn ,GT. 127) GO TO 300 


GO TO 400 

100 IFdSVM GT, 11) GO TO 400 
CALL TEKSYn<ISVf«l) 

GO TO 400 

200 CALL USERS(X.Y,ISYM) 

GO TO 400 

300 CALL SOFTEKdSYM) 

400 CALL mOUEA(X>Y) 
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Feature Eliminated: 


Calculation of Min/Max for 
User Defined Short Form 


Saves : 1 dummy routine (UMNMX) and 

2 lines of FORTRAN code 


Modified Subroutine: MNMX 


Modification to MNMX 


Delete indicated lines: 


IF'- NONSTD . OR . ARRAY< 1 > . GE . 9 > GO TO 390 
ISET*0BS< 0RR0V<1> > 

IF*: ISET.EQ. 1 > GO TO 100 
IF(ISET.EQ.2> GO TO 200 

f » USER DEFINED MIN- MAX ROUTINE 
CALL UMHMXC ARR A VAM IN. AMAX > 

GO TO 600 

•U t SHORT FORM LINEAR DATA ARRAY 
100 XMAX=ARRAYC 3 >+< ARRAYC 2 >-1 . >»ARRAY< 4 > 

AM I N=AM IN1 < ARR AY< 3 >.. XMAX. AM IN > 


13-28 


4010A02 SYSTEM 
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Feature Eliminatedf 
Saves : 

Modified Subroutine: 


Software Plotting Symbols - TEKSYM 

1 dummy routine (TEKSYM) and 
1 line of FORTRAN code 

SYMOUT 


Note: If these changes are made, the A-level 

changes for Software Plotting Symbols 
are unnecessary. 


Modification to SYMOUT 


Delete indicated lines 


C<U.L TOUTPT<ISYM) 

GO TO 400 

100 IFCISYM LT. 0> GO TO 200 

_ IF<ISYf1 CT 11) CO TO 400 

■ CALL TEKSYIK ISYM.FACTOR) 

GO TO 400 

200 CALL USERS<X.Y,ISYri) 

GO TO 400 

300 CALL SOFTEKdSYM) 


(® 
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SECTION 14 


USER ROUTINES 

Most users will never need the routines described in this section and 
need not read this section. They are included so that the 5 % of our 
customers who require special features not supported by the standard 
routines may conveniently add them to the package. With such flexibility 
there are many opportunities to make errors. We therefore strongly 
suggest that the programmer become familiar with the standard features of 
the package before experimenting with the user routines. It is recommended 
that a standard plot close to the desired special plot be generated and 
debugged first before linking in any special routines. It is also 
suggested that the user routines be tested as much as is practical by 
themselves before merging with the standard package. 

This short section of documentation is not intended to be exhaustive 
but should allow the adventurous user to skip the simple errors and leap 
directly to the esoteric program bugs that challenge the mind. 

There are currently six user hooks supplied in the AG-II package: 

Two routines, UMNMX and UPOINT, are used to expand a 
user defined short form. 

Two routines, ULINE and USERS, are used to implement 
special line types and special symbols. 

One routine, USESET, is used to pass user defined 
labels to the axis labeling routines. 

One routine, SOFTER, is used in conjunction with the 
Tektronix 4010A05 PLOT 10 Character Generation System. 

These are described briefly below. 

If the user wishes to have an unsupported short form, he must replace 
both UMNMX and UPOINT. UMNMX will return a minimum and maximum when 
given a short form, and UPOINT will return X, Y coordinates when given 
the same short form. UPOINT may also be written as a function of the 
X array in the form Y=f(x). UMNMX and UPOINT are invoked if the first 
entry of the data is less than -2. 

If the user needs a different type of line such as extra heavy or a 
stepped line, ULINE can be rewritten to support this function. The 
routine is invoked once for each point in the plot to draw the desired 
pattern. The routine is controlled by specifying a line type with a 
negative value. If several patterns are required, several negative line 
types may be choosen with ULINE executing a case branch. 

A special symbol may be added to the package by recoding USERS. This 
routine is called once for each point plotted if the symbol type is set to 
a negative value. This routine may then perform any function desired by 
the user. During the development period, USERS was used to implement bar 
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charts to check concepts connected to bar charts. This routine may be 
used to make point dependent symbols such as a routine to print out the 
value of a point on the plot. 

The fifth routine is designed to help the user use the standard label 
routine to put non-standard labels on an axis. At each labeled tic mark, 
USESET is called with an array in which can be placed suitable character 
codes right justified. These are processed by LABEL to provide 
justification, and are printed on the labels. LABEL calls USESET if 
the label type is negative. 



Subroutine UMNMX 


Called by MNMX to resolve user (non-standard) short forms. A non¬ 
standard short form data array is defined to be any array whose first 
entry is less than -2. 


CALL UMNMX(ARRAY,AMIN,AMAX) 

PURPOSE: This routine calculates the minimum and maximum of the given 

short form and returns the lesser of that minimum and AMIN, and 
the greater of that maximum and AMAX. This routine will only 
be invoked for short forms not supported by standard code. 

ARGUMENTS : ARRAY Input array (short form) 

ARRAY(l) Negative number representing type. Must 
not be one currently supported. 

ARRAY(2) Nunter of points represented in this array. 

AMIN Input: current minimum data value. 

Output: The minimum of all data values or AMIN 

AMAX Input: current maximum Data value. 

Output; The maximum of all data values or AMAX. 


UMNMX is always used with the function UPOINT. 
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Function; UPOINT 


USED: Called by DATGET to resolve user short forms 

V = UP0INT(ARRAY,I,0LD0NE) 

PURPOSE; To provide a data value, on demand, to be plotted. 

ARGUMENTS; ARRAY Input array (short form) 

ARRAY(l) negative number representing type. 

ARRAY(2) number of points 

I number (Index) of point being plotted. Runs from 1 to 
number of points in steps of STEPL 

OLDONE This is the previous value calculated by DATGET. 

Y = f(x) may be coded as Y = f(OLDONE) 

X = f(OLDONE) is really equivelent to; 

X = f(Y(I-l)) 
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OtICNSlON »1MTA(7>/YMT«K2) 

MTA XIMTA/€./i .2 .3 
DATA YOATA/-ie v 
CAa lNlTT<i2e> 

CALL BINITT 

CALL CHCCMXOATA.YOATA) 

CALL DSALAVCXOATA^YOATA) 

CALL FIHlTKB.TOe) 

STOP 

END 

FUNCTION UPOINTC ARRAYS 1«OLOONE> 

C Y«K SQUARED 

UPOIHT-OLOOHETOLOONE 

RETURN 

END 

SUBROUTINE UNNIIXC ARRAY.ANIN.AHAX) 
OINENSION ARRAY<2) 

ANIN«1 

A(1AX-3S. 

RETURN 

END 
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Subroutine UlINE 


USED: 


PURPOSE 


ARGUMENTS: 


Called by CPLOT once for each point if line type is less than 
- 10 . 


CALL ULINE(X,Y,I) 

This routine permits the user to do special moves and draws 
between points. It should be used for features occurring 
between points. A similar routine is provided for features 
occurring at points. 

X X (Horizontal) coordinate in data space 

Y Y (Vertical) coordinate in data space 

I Number (Index) of the data point in question. I varies 

from 1 to number of points in increments of STEPL. 
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OlHENSIOH XOATA< 7 )> •^TA< 7 > 

DATA >®ATA^'6 il .2 /3./4..5./6./ 

DATA YDATA/ft., 211.. 114., 386... 354.. 291... 325. / 
CALL INITT(120:> 

CALL AINITT 
CALL L1ME(-11> 

CALL CHEXIKCJiOATA.YOATA) 

CALL DSPLAY<?<DATA>YOATA) 

CALL FIHim0,700;• 

STOP 

END 

SUBROUTIME UL1ME<X,Y,I> 

IFU.EQ.DGO TO 100 
CALL DRAMACX/YOLD) 

CALL DRAWA<X,Y> 

100 YOLD»Y 
RETURN 
END 
t 
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Subroutine: USERS 


USED: 

PURPOSE: 

ARGUMENTS: 

PROGRAMMING 


Called by BSYM once for each point if symbol type (CSYMBL) 
is less than zero. 

CALL USERS(X,Y,ISYM) 

This routine permits the user to construct his own symbols at 
each data point. It has more flexibility than the standard 
TEKSYM in that the actual data value is available. 

X X (horizontal) data value of point 

Y Y (Vertical) data value of point 

ISYM The desired symbol code (will always be less than zero) 
CONSIDERATIONS: 

Normally a move will be made to the point represented by X,Y 
before entry into this subroutine. This subroutine is invoked 
even if the point is outside of the visible window. It is 
therefore the users responsibility to use virtual moves 
and draws ,or check for visibility. A GENFLG value of D indicates 
symbol will be within the window. 

Example: See Figure A.2. 
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Subroutine USESET 


USED: 

PURPOSE: 

ARGUMENTS: 


This routine is called by label for each labeled tic mark 
if a label type is less than zero. 

CALL USESET(FNUM,IWIDTH,NBASE.LABELI) 

This routine is provided for people who wish to provide 
their own labels on the tic marks. 

FNUM data value represented by tic mark. For linear 
data FNUM is the unsealed value of the tic mark. 

For logarithmic data FNUM is logio of the tic 
mark value. 

For calendar data FNUM is the number of label 
intervals numbered from the first period of the 
initial year and incremented continuously for 
the entire axis. 

Examples: For two years of months starting in 

January, FNUM would be 1, 2, 3, ...12, 
13,14, ...23,24, incrementing by months. 

For a two year bi-monthly series, FNUM 
would be 2,4,6,...20,22,24. 

For two years of months beginning in 
July, FNUM would be 7,8,9,...28,29,30. 

IWIDTH width of label. IWIDTH is specified by the AG-II 
call to USESET. The user must pass out a label of 
this width. (IWIDTH is 20 in distributed version 
of AG-II.) 

NBASE Pointer to COfliON section of related axis. Will 
be equal to either IBASEX(O) or IBASEY(O). 

LABELI Integer array of length IWIDTH to be filled with 
character codes. Actual label should be right 
justified, and leading unused characters should 
be filled with blanks (code 32). 
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. 191..3es./ 


c * CXATTLE or A USEK DCFZNCD LABEL 
DZHENSIOH X0ATA(7).VDATA<7) 

DATA XOATA^E.,1,8..3.,4.,E..i.X 
MTA VDATA^e.. 811.. 114 ., 398. , 394 
CALL lHZTT<3e) 

CALL IIMITT 
CALL XLAi(-l) 

CALL XUDTHdO) 

CALL CHECK < XDATA.VDATA) 

CALL DSALAVtXDATA.VDATA) 

CALL FZNXTTC0.790) 

STOP 

END 

C ** SUBROUTINE TO DEFINE USER DEFINED LABEL 

SV£5E!fIItl® USESET (FNUM.IUXDTH.NBA8E. LABELX) 
DINENSION LABELS(19.6).LABELX(89) 

N y E t T 

S U E S T 

N E A S T 

S E A. • T 

Q R LAKES 
SO . CENT RAL 
DATA LABELS/3a.33.38.38.38.78.17.69.t3.84. 

& 38.38.38.38.38.83.87.99.83.84. 

^ 38.38.38.38.38.71.69.69.83.84. 

^ 38.38.38.38.38.81.69.66.83.84. 

38.38.71.88. 46.?i. 65.76.69.83. 

^ 83.79.46. 67. § 9 . 78 . 84.81.65.76^ 

I-FNUn^9.5 
DO 199 K-l.IUIDTH 
199 LABELl(K)-LABELSCK.I) 

RETURN 

END 



SUEST SEAST SO. CENTRAL 
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Subroutine: $OFTEK(ISYM) 


USED: Called by BSYMS to supply non-standard symbols from 

an independent Character Generation system such as 
the Tektronix 4010A05 PLOT 10 Character Generation 
System. A value greater than 127 in CSYMBL causes 
SOFTEK to be called. 

CALL SOFTEK(ISYM) 

PURPOSE: This routine allows symbols to be used from an 
independent character generation system. 

ARGUMENTS: ISYM is the symbol code (will always be greater 

than 127). 



APPENDIX A 


SAMPLE GRAPHS 


A group of complex graphs were collected at the end of Section 1 to demonstrate 
the variety available with the package. The code for these examples is contained 
in the following section. 


@ 
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OS 



DIMENSION XPTS(i5),VPTS(15) 

DATA XPTS/14.5E-1.91.-1.OS.-.81,- SE.-.60,- 57,-.41. 

i- 09, 1, .3, .5, ,7.' 

DATA YPTS/14.,- 70,-.27,-.12, 17, 28, 31- 32,.20,.18,.10, 


C t 


C % 


c * 


6-.35,-.71,-l.22/ 

CALL INITTOO) 

THE MAIN CURUE 
CALL BINITT 
CALL SLIMX(10O,40O) 

CALL SLIMV(200,600) 

CALL CHECK(XPTS.YPTS) 

(^AI t n^PIAVfyPTQ VPT^ ^ 

BOX AROUND THE PORTION OF THE GRAPH TO BE ENLARGED 

8 ,. 2 ) 

2 ) 

4) 

4) 

2 ) 


DRAU A 

CALL MOUEA(- 


CALL DRAUAC- 2, 

CALL DRAUA(-.2. 

CALL DRAUA(-.8, 

CALL DRAUAC- 8, 

CALL ANMODE 
THE ENLARGEMENT, 

CALL BINITT 

CALL DLIMX(-.8,-.2) 

CALL DLIMYC.2, .4) 

CALL SLIMXC500.1000) 
CALL SLIMY(20O,7OO) 
CALL CHECK(XPTS,YPTS) 
CALL DSPLAYCXPTS,YPTS) 
CALL TINPUTCK) 

CALL FINITT(0,700) 

STOP 

END 


PRODUCED BY RESETING DATA LIMITS 


.32, 

08. 


This display demonstrates the enlargement of a detail in a second graph on the 
same page. 

Figure A. 1 
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REAL XPTS(55).YPTS(55),UPTS(23).UPTS(a3) 

INTEGER IST(a2).ISTR(10),ISTRI(15),ISTRIN(2l) 

LEN-22 
LENG-10 
LENGT«i5 
LENGTH*21 

C * CURUE LABEL ©©-DAY EUR O DOLL 
AR RATE 

DATA IST/57;48,4S, 100,97.121.32.69,117.114.111. lOO. 111,108,108, 

8i97.114,32.114.97.116.101/ 

C * CURUE LABEL PRIME RATE 

DATA ISTR/80.114.105.109.101.32.114.97,116.101/ 

C * GRAPH TITLE' COST UOLATILITY 

DATA ISTRI/67.79.83,84,32.86,79.76.65.84,73,76.73.84,89/ 

C t SCALE LABEL' PERCENT INTEREST RATE 

DATA ISTRIN/80,101,114.99,101.110,116.32.73.110.116,101.114,101 
8i. 115.116.32.114,97.116,101/ 

C * DEFINE LONG FORM DATA ARRAY IN UBGC DATES 
XPTSd )-54. 

CALL IUBGC<1969,l.IXPTS) 

XPTSf2 ) •FLOAT(IXPTS) 

DO 100 1-3.55 
100 XPTSd )-XPTS(I-l)+28 
C t DATA ARRAY IN PERCENT 

DATA YPTS/54.,7.0.71.7,6.8.4,8.4,93,10.3.10.4.10.4.11 1.11.2. 

8i9 5,10 7,10.0,9.5.9.3.8 7,8 6,8 5,8 8.9 1.8 8.8 4,7 9,8 5. 
i8.0,7.6,70.6.0,5.3.6.0,67,74,6.0,6.7.6.6,75-90.7.4.6.0.62, 
i6 9,67,73.75.79.8.5,80,77.79.8.2.9.0.8.2.7.7/ 

C * DATA ARRAY IN DAY INTERUALS 

DATA UPTS.^22 ,0 ,50 ,70 ,325 .175 ,30 .50 .25 ,25 ,20..25 .65 
i, 30 .150.,35.,60.,60 ,64.,115 ,30.,50 ,60 / 

C t DATA ARRAY IN PERCENT 

DATA UPTS^2£ ,70.7 5,85,80,76,73,70,6.6,61,5.8,54.5.7. 
e.6 1,5 8,5 6.6 0.7 4-3 0,7 4,7 2,7.1,6 8/ 

C * CHAfJGE UPTS ARRAY TO UBGC DATE UALUES 
UPTS^2 )-XPTS(2 ) 

DO 200 1-3.23 

200 LIFTS (I .' - UPTS d -1 )+UPTS (I ) 

CALL INITT(1£0) 

CALL BINITT 
CALL XUDTH(3) 

CALL SLIMY(200,690) 

CALL XTYPE(3) 

CALL >:DEN(9) 

CALL XLAB(e) 

CALL CHECK(XPTS,YPTS) 

CALL DSPLAY(XPTS.YPTS) 

C t ON THE SECOND PLOT USER WRITTEN SUBROUTINE ULINE IS USED 
CALL LINE(-1D 
CALL CPLOT(UPTS,UPTS) 

C * LABEL THE GRAPH INTERACTIUELY 
CALL DCURSRdC, IX,IY) 

CALL NOTATEdX,IY,LEN,IST) 

CALL DCURSRdC. IX, lY) 

CALL NOTATEdX. lY.LENG, ISTR) 

CALL DCURSRdC. IX, lY) 

CALL NOTATEdX, IY,LENGT, I STRI) 

CALL DCURSRdC, IX, lY) 

CALL MOUABSdX.IY) 

CALL ULABEL(LENGTH,ISTRIN) 

CALL TINPUT(K) 
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CALL FINITT(e.700) 

END 

C * THIS SUBROUTINE IS CALLED TO GRAPH THE SECOND CURUE 
C * SINCE CLINE UAS SET TO -11 
SUBROUTINE ULINE(X,Y.I) 

IF(I EQ 1) GO TO 100 
CALL DRAUA<X.YOLD) 

CALL DRALIA(X.Y) 

100 YOLD-Y 
RETURN 
END 


MAHPOMER IN BUILDING DESIGN 
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This graph demonstrates the use of a bar chart with user written subroutines 
ULINE and LEDG. Subroutine FILBOX draws the shading lines for the legend. 

Figure A.3 
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C * ROUTINE TO PLOT TIME INUESTED IN BUILDINti DESIGN 
C ♦; SINCE PERIOD 304 

REAL PERIOD<11DESINR<11/6> 

INTEGER ITITLE<28>,IH<6>/IP<7>/lDESINO> 

C t ASCII EQUIUILENT OF 'MANPOWER IN BUILDING DESIGN' 

DATA ITITLE/27.. 77.65.78.80,79,87.69/82,32,73. 78.32,66.85,73/ 
1 76,68,73,78,71,32.68.69,83,73,71.78/ 

C t ASCII EQUIUILENT OF 'HOURS' 

DATA IH/6,72,79,85.82,83/ 

C :»t ASCII EQUIUILENT OF 'PERIOD' 

DATA IP/6,80,69.82,73.79.68/ 

C ASCII EQUIUILENT OF ' DESIGNER ' 

DATA IDESIN/8.68.69.83.73.71.78,69.82/ 

DATA PERIOD/6.,304.,305..306..307..308..309..310.,3*0./ 

DATA DESINR/6..10.,28.,10.. 40.,80.. 56..4*0.. 

1 6 ,49 .52 .49 ,142..37.. 120 ,4*0... 

2 6,30,55,30., 20., 6., 49.,4*0., 

5 6..18,,12..27..10..11.,44.,4*0., 

6 6.. 4*1.E35. 39.166.4*0.. 

7 6,72 .107..72..43., 3., 22.,4*0. 

8 / 

CALL INITT<120> 

CALL eiNITT 

C * SET THE LINE TYPE IN COMMON 
CALL COMSET< IBASEC< 0>.-U.> 

C * SET THE COMMON FOR THE PROPER BAR TfPE 
CALL SIZELC 12. > 

CALL XFRMt 2 > 

CALL DLIMX<.304 ,310. 

CALL DLIMY<e.,200.> 

CALL SLIMY<300.. 700> 

CALL XOENCS.^ 

CALL CHECK<PERIOD,DESIHR> 

CALL DSPLAY<PERIOD,DESINR> 

C * PLOT THE REMAINING BARS 
DO 100 1=2,6 

100 CALL CPLOT<PERIOD,DESINR<1.1>> 

C * PLACE TITLES ON THE GRAPH 

CALL HOTATE<300.750, ITITUE< 1>, ITITLE<2>> 

CALL NOTATE<350,30, IDESIN<1>. IDESIN<2)) 

CALL NOTATE<500.200. IP<1>. IP<2>> 

CALL MOUABSC 50.550 > 

CALL ULABELC IHC 1 >. IH<2>> 

200 CALL TINPUT<K.> 

IFCK NE. 65>G0 TO 200 
CALL FINITT<0,30> 

END 

C * SUBROUTINE TO DESIDE THE BAR AND SHADING INSIDE 

SUBROUTINE ULINE<X.Y.I> 

DATA .XOFF,DEL/-.06. . 1/ 

IFCI NE. 1>G0 TO 100 

DATA JKAI 

XOFF=XOFF+DEL 0. S 5 

K=2 

J=J+1 

C .* LEGEND AT THE BOTTOM OF THE GRAPH 
CALL LEDG<500.30, J> 

IF<.J LE. 6>G0 TO 100 
J=1 

XOFF=-.6+DEL 
100 X2=X+XOFF 

I F<: Y . GT . 1 E30 >RETURN 
CALL SYMBL-:: ITC J>:> 

CALL BAR<.X2,Y,K> 

CALL SYMBL<:0> 

K**0 

RETURN 

END 
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C t FUNCTION MHICH HAS THE COOES FOR THE SHAOING OF THE BARS 

FUNCTION IT<I> 

INTEGER ITT<6> 

C « COOES FOR BAR SHADINGS 

DATA ITT/^12.1,4,0.13.S/' 

IT=ITT<I> 

RETURN 

END 

C * ROUTINE TO PLACE LEGEND ON THE SCREEN AREAEX 
SUBROUTINE LEDG<IX.lY.I> 

DATA 

J»J+1 

iF<j GT i>G0 TO lee 
ILX=IX-80 
ILY=IY+30 
100 ILX-ILXH-80 

CALL FILBOX<ILX.ILY.ILX+60.ILY460.IT<J>.20> 

CALL MOUABS<ILX+20.ILY-30> 

CALL ANMOOE 
CALL TOUTPT<J+48> 

RETURN 

END 
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DIMENSION Bf»RlC7>/BAR2<7,3> 

DIMENSION ILABELC 22 >. JLfiBEL< 34 >>KLABEU 42 LABEU 11 >/LNBELK 9 > 
DATA BAR1/6..1 ..2.,3.,4./5.^6.^ 

DATA BAR2/6...2 .18.,l9..2S.,22./33.. 

1 6 .- 50 , 62 . 60 .> 60 .. 76 ., 79 / 

2 €., 100 , 100 ., 100 ., 100 ., 100 ., 100 ./' 

C » ASCII EQUIUILEHT OF ‘HIGHEST PERCENT OF USE- 

DATA ILABEL, 72,73,71,72,69,83,84,32,80, 69,82,67, 69,78,84, 

«< 32,79,70,32,89,83,69,^ 

C *. ASCII EQUIUILENT OF 'EFFECTIUENESS OF INDUSTRIAL RESOURCES' 

DATA JLABEL/^69,86,65,76,89,69,84,73,79,78,32,79,70,32, 
fc73,78,68,85,83,84,82,73,65, 76, 32,82,69,83,79,85, 82, 67,69,83/' 

C 1c ASCII EQUIUELENCE OF -PREUELENCE OF EFFECTIUENESS OF MECHANISM- 
DATA KLABEL/ 80,82,69,86,65,76,69,78,67,69,32,65,78,68,32, 

S:69, 70,70,69,67,84, 73,86,69,78,69,83,83,32,79, 70,32,77, 
8:69,67,72,65,78,73,83,77,83/ 

C ASCII EQUIUELENCE OF * IN BUSINESS- 

DATA LABEL/73, 78,32,66,85,83,73, 78,69,83,83/ 

C T ASCII EQUIUELENCE OF 'LEUEL* 

DATA LABELl/76,69,86,69,76/ 

CALL INITT<120> 

CALL BINITT 

C T SET SCREEN LIMITS TO INCLUDE TITLES 
CALL SLIMXC200,900> 

CALL SLIMY<:300,720> 

C SET LABELS FOR Y TO NEGATIUE UALUE 
CALL COriSET< IBASEYC 3 ), -1. > 

C * FORCE TICS FOR Y TO SPECIFICATION WANTED 
CALL YTICS<8> 

CALL YWDTH< 20 > 

CALL YFRM(1> 

CALL YMFRM<1> 

CALL XFRfK2> 

CALL FRAME 

C ♦ SET DATA LIMITS 

CALL DLI MX< 0. .. 100. 

CALL DLIMY<0.,8.> 

C » DESIGN THE BARS AND DRAW THEM 
CALL HBARST< IT< 1 30, 20 > 

CALL CHECK<BAR2..BAR1 > 

CALL DSPLAY< BAR2,BARI> 

C DRAW THE REST OF THE BARS 
DO 100 J=2,3 
CALL HBARSTC I T< J >, 30,20 > 

C * PUT OUT THE LEGEND 

CALL LEDG<530,30, J> 

100 CALL CPLOT< B^«2< 1, J>, BARI > 

CALL LEDGc: 530.. 30,3 > 

C t. PUT OUT UERTICAL LABEL 
CALL MOUAB8<5e,700> 

CALL MLAeEL< 22,1LABEL > 

C t PUT OUT GRAPH TITLES 

CALL NOTATE <400,30,5,LABEL1> 

CALL NOTATE< 300,150,34,JLABEL > 

CALL NOTATEC250,700,42,KLABEL> 

CALL NOTATEC440,650,11,LABEL> 

CALL TINPUTCI> 

END 

C ■*: FUNCTION TO DESIGNATE BAR SHADING 
FUNCTION IT<I> 

INTEGER ITT<3> 

C BAR SHADING CODE 

DATA ITT/'12..2..0/ 

IT=ITT<I> 

RETURN 

END 
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C » ROUTl^ TO CALCULATE LEGEND 
SUBROUTINE LEOG<IX,lY, X> 

ORTA 

xr<j CT. i>QO TO lee 

ILY-XV+3B 
lee XLx*XLX'*-80 

CALL FILBOKC ILX, XLY, ILX^/ILV^SB, tT< J>,2B> 

CALL HOUABS< 1LX>K», ILy-3(> 

CALL ANHOOK 
CALL T0UTrr<J»4B> 

WTURN 

END 

C * ROUTINE TO OUTPUT TNE USER LABELS ON TNE Y AXIS 
SUBROUTINE USESETC FNUN/IMIOTH#NBAGE, LABELI > 
OXNENSXON LABELX<2> 

OXNENSXON XA8CXL<27> 

C ASCIX EQUXUELENCE OF ALL THE LABELS 

DATA XA8CXL>^32,32> 32,32,94,37,32^56,37,32,S7,37, 
L 49,92,37,92,91,37,94,96,37,32,32,32,32,32,32/' 
IM-XWXOTH-3 
DO lee I-1,1M 
100 LABELIC 1>«32 

IC*< XFIXCFHUM>*3 Hi 
IM«XM^1 

DO 200 I«IW, IMIDTH 
LABELK I >»IA3CIL< XC> 

200 XC-IC+l 
RETURN 
END 
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This graph demonstrates the same data plotted against a linear and a logarithmic 
Y axis varying slightly from Figure A. 


Figure A. 4 
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C t DEMO PROGRAM USING LOG Am LlfCAR: PLOTTING 
REAL JiPTS<ll >,YPTS<ll> 

?-:pts( 1 >=i0 

VPTS< 1 >=10 

C * GENERATE DATA POINTS FOR Y=X»*3 
DO 100 1=2.11 

::ptS':; i >=float< i-i > 

100 YPTSCI >=FL0AT< I -1 m3 

CALL INITK120) 

CALL BINITT 

C SET THE HORIZONTAL SCREEN LIMITS 
CALL SLIM;<';;300.900> 

C USE CHECK TO COMPLETE THE SPECIFICATIONS 
CALL CHECKCXPTS/f'PTS) 

ChLL DSPLAYC XPTS.. YPTS) 

C t LOCATE Y AXIS TO LEFT OF FIRST AXIS 
CALL YLOC<-90> 

C t PLOT LOG WITH CIRCLED DATA POINTS 
CALL SYMBL<5> 

C *■ MAKE Y AXIS A LOGARITHMIC TRANSFORMATION 
CALL YTYPE<2) 

C t SUPPRESS THE LABELING OF THE X AXIS A 2ND TIME 
CALL XLAB< 0) 

C SUPPRESS THE DRAWING OF THE X AXIS A 2ND TIME 
CALL XFRM(0) 

C t CHANGE THE FORM OF THE MAJOR TIC MARKS 
CALL YFRM<2) 

C t RESET THE Y DATA LIMITS 
CALL DLIMY(0..0.) 

C USE CHECK TO COMPLETE COMMON 
CALL CHECK-:; XPTS. YPTS > 

CALL OSPLAY( XPTS,. YPTS :• 

CALL TINPUTdUY) 

C 1: DUMP COMMON TABLE IF C IS TYPED 
IR lUV NE.67:)G0 TO 200 
CALL COMDMP 
200 STOP 
END 



oo 
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t DEMO PROGRAM USING LOG AND LINEAR PLOTTING 
t THE LOGARITHMIC AXIS IS TO THE RIGHT OF THE GRAPH 
REAL XPTS( 11 YPTSc: 11) 

XPTS< 1 )=--iei 
YPTS( 1 >=10 
DO 100 1=2.11 
XPTS-: I :)=FL0AT< I-l) 

100 VP T S( I )=FLOAT< I -1 

CALL INITT(120) 

CALL BINITT 

CALL CHECK(XPTS.VPTS) 

CALL OSPLAY( XPTS'(TTS > 

LIM2»0 

CALL SYMBL-;: 1 > 

CALL YLAB<2) 

CALL YTYPE(2> 

C t LOCATE THE Y-AXIS ON THE RIGHT OF THE GRAPH 
CALL YLOCRTCLIMZ) 

CALL XLAB<0> 

CALL XFRf1<0) 

CALL YFRM(2> 

CALL OLiMy<e.«e.> 

CALL CHECK<XPT8/Vrrs> 

CALL DSPLAYYXPTS.YPTS) 

CALL TINPUTCIUY) 

STOP 

END 


Figure A.5 

This graph allows comparison of the same data plotted as logarithmic and as 
linear. 
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DIHENSION RPf1(4 ) .POU(g0),SPC(20).TOR(a0),LABl<18).LAB8(10) 
li.LABSCie^.LAB^ce) 

C * LABEL LENGTHS 
Ll-18 
L2-10 
L3»16 
L4-S 

C % GRAPH TITLE ■ ENGINE PERFORMANCE 
DATA LABI/69,78.71,73.78.69,32,80.69,82,70,79,82,77.65,78.67.69/ 
C * SCALE LABEL ^ HORSEPOWER 
DATA LAB2/72,79,82,83,69.80,79,87,69,82/ 

C * SCALE LABEL FUEL CONSUMPTION 
DATA LAB3/70,85.69,76,32,67.79.78.83.85,77.80,84.73,79,78/ 

C * SCALE LABEL' TORQUE 
DATA LAB4/84,79,82,81.85.69/ 

DATA RPM/-1,,19.,1000,,175./ 

DATA POU/19.,14.,20.,23.,27.,31.,34.,37.,40.,48.,44.,46. ,47.5, 

&48 ,49.,49.5,49.9,50 3,50.5,50.6/ 

DATA SPC/19 ,13.7,13 5,13 17,12.77,12.30,11.8,11.25,10.65,10.0, 
i9.35,8.8,8 35,8.0,7 8,7.7,7.65,7.66,7.8,8.1/ 

DATA TOR/19.,60 ,64.,68 ,71.5,74.9.77.9.80.4,88.3. 

8,84 ,86 ,87 2,88 -88 6,87.9,87.2,86. ,84.8,83. .81./ 

CALL INITT(180) 

CALL BINITT 

CALL SLIMX(200,800) 

C * EACH Y-AXIS TIC INTERUAL WILL SPAN 40 RASTER UNITS 
CALL SLIMYC100.100+16*40) 

CALL YTICS(16) 

CALL CHECK(RPM.POU) 

CALL DSPLAYCRPM.POU) 

C * Y-DATA DIFFERS IN THE SECOND CURUE, SO REINITIALIZATION IS NEEDED 
CALL DINITY 

C * SECOND CURUE SPANS 6 TIC INTERUALS 
CALL SLIMV(140.140+6*40) 

CALL YTICS(6) 

CALL LINEC54) 

CALL YLOCRTCO) 

CALL XFRMC1) 

CALL XLAB(0) 

CALL YFRM(2) 

CALL CHECKCRPM.SPC) 

CALL DSPLAYCRPM-SPC) 

C * THIRD CLIRUE IS HANDLED SIMILARLY TO SECOND CURUE 
CALL DINITY 
CALL LINEC7434) 

CALL YTICSC4) 

CALL SLIMY(460,460+4*40) 

CALL CHECK(RPM.TOR) CALL MOUABSCIX,lY) 

CALL DSPLAY(RPM.TOR) CALL ULABELCL4.LAB4) 

C * PRINT LABELS INTERACTIUELY CALL TINPUTCIUV) 

CALL DCURSRCIC.IX.IY) CALL FINITTC0.700) 

CALL MOUABSCIX,lY) END 

CALL HLABELCLl.LABl) 

CALL DCURSRCIC.IX.IY) 

CALL MOUABSCIX,lY) 

CALL ULABELCL8,LAB2) 

CALL DCURSRCIC.IX.IY) 

CALL MOUABSCIX.lY) 

CALL ULABELCL3,LAB3) 

CALL DCURSRCIC.IX.IY) 
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C t PROGRAM TO DEMONSTRATE THE REMOTE EXPONENT AND LABEL STAGGERING 
PEAL XFTSai>..YPTS< 11> 

XPTS( 1 .:-=10 
YPTS( 1 )=10 
BASE=3000000. 

DO 100 1=2,. 11 

K'=TS< I >=BASE+1. *FLOAT( 1-1) 

100 YPTSC I >=10000000. V: 50. -FLOATS I-5 )*♦:2) 

CALL INITT<30) 

CALL BIMITT 
CALL XDENUe) 

CALL YDENCl©) 

CALL CHECK<XPTS..YPTS;) 

CALL DSPLAYCXPTS.YPTS) 

CALL TINPUKIUY) 

CALL FINITTC0.700> 

END 
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This graph demonstrates use of a remote exponent and staggered labeling. 

Figure A.7 
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OIMEHSIOH XrtRRrtV( ? YARRAY< 7 > 

DATA XARRAY/6...22. Q, 24.5..27.©..29.5.32.0.34,5/ 

DATA YARRAY -6 .. 211... 114... 306.. 354... 291,.. 325 
CALL INITK30> 

CALL BINITT 
CALL SYriBL(-l> 

CALL CHECKSXARRAY..YARRAY) . 

CALL DSPLAYCXARRAY/t'ARRAY) 

CALL TIMPUTd) 

CALL FINITT(:0..700> 

STOP 

END 

C ROUTINE TO LABLE POINTS WITH Y UALUE 

SUBROUTINE USERSCX.Y.ISYM) 

INTEGER IA<15) 

DATA IYOLO>1312/98987.20/ 

C CONUERT TO SCREEN COORDINATES 

CALL WINCOT<X.Y.IX..IY> 

C THIS CODE IS A FIRST ENTRY BRANCH 

IFdYOLD .EQ. 98987 >GO TO 100 
C STORE SLOPE OF LINE -DOWN OR UP- FOR LABLE LOC 

ISIGsIY-IYOLD 

C BRANCH IF POINT IS OUTSIDE OF WINDOW 

IF<GEHFLGCl))GO TO 100 

C GET PARAMETERS FROM AXIS COMMON TO DEFINE LENGTH OF LABLE 

NBASE»rBASEY<0> 

NOEC=COMGET< NBASE+10 H2 

IWIDTH=C0MGET<NBASE+17)+3 

IEXF*C0MGET<NBASE+18> 

C CONCERT Y l^LUE TO ALPHA STRING 

CALL FFORMC Y/10. lEXP. IWIDTH.. NOEC. I A. 32) 

C RIGHT JUSTIFY LABLE 

CALL JUSTER<IWIDTH.lA.1.32.LEN.IOFF> 

C DRAW SMALL ARROW A60*,€ OR BELO^i LIhC 

CALL M(X^S<IX-10.IY-HSIGN(2.ISIG)) 

CALL ORWABS<IX.IY) 

CALL DRWABS<IX-2.IY+ISIGN<10.ISIG>> 

CALL Ma^ABS(IX.IY) 

CALL DRWABSC IX-ISI2.. IY+ISIGN< 1SI2. ISIG>> 

CALL DRWABS<IX-ISI2-5.IY+ISIGN<ISI2.ISIG>) 

C WRITE OUT LABLE 

IYP0S*1Y*HSIGNC ISI2. ISIG >-8 

CALL NOTATE<IX-ISI2-7+I0FF.lYPOS. LEN.lACIWIDTH-LEN+1» 

C PREP^«E FOR NEXT SLOPE CALCULATION 

100 IYOLD*IY 

RETURN 
END 
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d DRIUER PROGRAM FOR TRAIN GRAPH 
REAL YPTS':. 5 XPTSC 11 > 

DATA YPTS -2 .10,1 .1 AF:?. . 1 
OAT A KPTS-10 ,750.,900.,1£00 
S< 2450 ,2750 

CALL INITt<T20> 

CALL BINITT 
CALL isZEROCO:;- 
CALL YDEH<10> 
call SLIMX<200,900> 

CALL YFRM<:2> 

CALL .YFRMCa > 

CALL LINE< -W 

CALL CHECK-:; XPTS, YPTS> 

CALL DSPLAYCXPTS, YPTS') 

CALL frame 
CALL TINPUK JAKE > 

CALL FINITT(0,0> 

END 


1550.,1650.,2100.,2200. 


CALL MOUEAC 0.,Y-255 > 
CALL DRAWA<>:,Y-255. > 

IF<I.HE.1^GO TO 100 

I BASE Y< 5 > > 

AMIM=CONGET<IBASEY<11>> 
AMAXeCOriGET< IBASEY< 12 > > 
fCALEK AMAX-AMIN VTICINT 
CALL RSCflLE. < 0.8»SCALE > 
NUM=H.'500. +1 
CALL TRAIN<NUM) 

RETURN 
END 
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Figure A.9 
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C ROUTINE TO DRAW TRAIN 

SUBROUTINE TRAIN<NUM> 

REAL ARRAY1<;3.48>..ARRAY2<3.49> 

DATA ARRAY2.'-32. .- 0700.0. .32., .0021. 9806.32.. .0679. .0.32. .0.. 
ft: - 0785.32.-1.5690.0.32.-.0021. 

& .0806.32...0658.0..32..0..-.0785.32..-.9021.8.5541.32..1.4416. 

& - 0021.32..0..-.5520.77 .-.0403.-0955.32..-0339.-0467.32.. 

8. -.0636..0.32..-0276..0530.32...0276..9594.32.. 8679.0 .32.. 
ft .027.-.0594.77..-.1528..0063.32..-.0403.-.0573.32.. -.0790.0.. 32.. 
ft: -.0297..0594.32...0297..0530.32...0721.0..32...0318.-0531.77,. 

& -1.1974.-.0064.32...0254.-.0509.32...9743.0..32...0297..0552.32. . 
S. -.0360. 0552.32..- 0679.0 . 32 .-.0233.-.0530.77.. . 1528.0. .32.. 
ft: .0361.-.0552.32.. 0785.0..32...0233..0509.32..-.0318..0594.32.. 
ft. -.0679.0..32..-.0361.-.9531.77...8119..9998.32..-.0021..4968. 
ft: .32. .- 5690. .0021.32. .0. .-.4989.32.. .5699.0. .32. .-.2824. .4947.32.. 
S< 0. .- 4925.77. .0.. .4968.32. .- 2866.-.4968.77 .- 5074.-.0254/ 

DATA ARRAYl/77..-.0517..0742.32..-.9292. 1281.32.-.9449..4472. 
ft: 32 .-.0921..0269.32..- 0629..0831.32..-1.3469.0..32..0..-.4921. 
ft: 32..-.0651.-.0022.32.-.0022.-.0674.32...0651.9..32..-.9022. 
ft: .0651.32..0..-0674.32...3438.0..32...9449.-.0898.32 . 5932.0.. 
ft 32. .. .0517. 0921.32,. .2943.9. .32.. 0719.- 1213.32.. . 1798.0..77.. 
ft: -.2382..0449.32 .-0224.-.0696.32..-0719.0..32..-0202. 0651. 
ft. 32...0224. 0606.32...0719.0..32.. 0202.-0607.77..-.1416.0..32.. 
ftc -.0247.-0651.32..-.0674..9023.32..-9247..9607.32...0292..6652. 
ft 32...0674.0..32...0179.-.0607.77..-.8517.-.0023.32..-.0270. 
ft -.0629.32..-.0674.0..32..-.0269..9697.32...0269..0629.32...0651. 
ft 0..32...0292.-.0607. 77..-.1483.0..32..-.0292.-.9629.32.. -.0764. 
ft 0 .32..-0224..0607. 32...0337..0651.32...9629.0..32...9269. 
ft - 0629.77.. -.2607..0831/ 

C PUT OUT THE LOCOMOTIUE 
100 DO 400 J=1..48 

IF< ARRAYK 1. J >. EQ. 77 . >G0 TO 350 
CALL DRAWR< ARRAY 1 ( 2. .J >. ARRAY 1< 3. J > > 

GO TO 400 

3» CALL M0UER<:ARRAY1<2. J>. ARRAYK 3. J:>> 

400 CONTINUE 

C PUT OUT NUM BOXCARS 
DO 800 Ksl.NUM 
00 600 J-1.49 

IF<ARRAY2<1.J>.EQ.77. >G0 TO 558 
CALL ORAWRi: ARRAY2< 2. J >. ARRAYEC 3. J > > 

GO TO €00 

550 CALL M0UER<ARRAY2<2. J>.ARRAY2<3..J>> 

600 CONTINUE 

800 CONTINUE 

900 RETURN 

END 
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APPENDIX B 


SUBROUTINE CALLING REFERENCES 


The following two subroutine reference charts supply quick access to 
subroutine interaction information. 
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Reference Chart A 


Subroutine 

Called By 


ALFSET 

LABEL, REMLAB 


BAR 

CPLOT 


BINITT 

CHECK, COMSET 


BSYMS 

CPLOT 


CALCON 

COPTIM 


CALPNT 

CHECK 

DATGET 


CMNMX 

MNMX 


COMGET 

RGCHEK 


COMSET 

COPTIM, LOPTIM, LWIDTH, PLACE.RGCHEK, SPREAD. TSET. TYPCK.winTH 

COPTIM 

OPTIM 


CP LOT 

DSPLAY 


DATGET 

DSPLAY 

CPLOT 


EFORM 

FFORM 


ESPLIT 

EFORM 


EXPOUT 

NUMSET, REMLAB 


FFORM 

NUMSET 


FILBOX 

BAR 


FINDGE 

FINDLE 

COPTIM, LOPTIM 


FONLY 

FRAME 

EFORM, FFORM 


GLINE 

MONPOS 


GRID 

DSPLAY 


HLABEL 

HSTRIN 

HSTRIN, NOTATE 


IBASEC 

BAR, CPLOT, LABEL,LOPTIM, MNMX, RGCKEK, TYPCK 


IBASEX 

BAR, CHECK, DSPLAY, FRAME, GRID, lOTHER, LABEL, 

PLACE, REMLAB, 

IBASEY 

BAR, CHECK, DSPLAY, FRAME, GLINE, GRID, lOTHER, 
SETWIN, SPREAD 

LOGTIX, PLACE, 

I FORM 

EFORM, FONLY, NUMSET, REMLAB 


lOTHER 

LABEL, TSET 


lUBGC 

CALCON, CALPNT, CMNMX, MONPOS 


JUSTER 

LABEL, REMLAB 


KEYSET 

CPLOT 


LABEL 

DSPLAY 


LEAP 

LOCGE 

YDYMD, YMDYD 


LOCLE 

OUBGC 


LOGTIX 

GRID 


LOPTIM 

OPTIM 


LWIDTH 

WIDTH 


MNMX 

RGCHEK 


MONPOS 

LABEL 


NOTATE 

LABEL, REMLAB 


NUMSET 

LABEL 


OPTIM 

CHECK 


OUBGC 

PLACE 

CALCON, LABEL, REMLAB 


REMLAB 

LABEL 



SETWIN 
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Subroutine 


Called By 


RESCOM 

RGCHEK 

ROUNDD 

ROUNDU 

SAVCOM 

SETWIN 

SOFTEK 

SPREAD 

SYMOUT 

TEKSYM 

TSET 

TSET2 

TYPCK 

ULINE 

UMNMX 

UPOINT 

USERS 

USESET 

WIDTH 

YDYMD 

YMDYD 


CHECK 

CALCON, COPTIM, LOPTIM, LWIDTH 
CALCON, COPTIM, LOPTIM 

DSPLAY, FILBOX 

SYMOUT 

CHECK 

BSYMS 

SYMOUT 

CHECK 

TSET 

CHECK 

CPLOT 

MNMX 

DATGET 

BSYMS 

LABEL 

rurpi/ 

CALCON, REMLAB 

CALCON, CALPNT, CMNMX, MONPOS 


NOTEf The routines are arranged in the package in sequential 

loader order so that called routines follow the routines 
that call them. 
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Reference Chart B 


Subroutine 

ALFSET 

Calls 

BAR 

FILBOX, IBASEC. TBASEX, IBASEY 

BINITT 


BSYMS 

SYMOUT, USERS 

CALCON 

lUBGC, OUBGC, ROUNDD, ROUNDU, YDYMD, YMDYD 

CALPNT 

lUBGC, YMDYD 

CHECK 

BINITT, IBASEX, IBASEY, OPTIM, RGCHEK, SPREAD 
TSET, TYPCK, WIDTH 

CMNMX 

lUBGC, YMDYD 

COMGET 


C OMSET 

BINITT 

COPTIM 

CALCON, COMSET, FINDGE, ROUNDD, ROUNDU 

CPLOT 

BAR, BSYMS, DATGET, IBASEC, KEYSET, ULINE 

DATGET 

CALPNT, UPOINT 

DSPLAY 

CPLOT, GRID, IBASEX, IBASEY, LABEL, SETWIN 

EFORM 

ESPLIT, FONLY, IFORM 

ESPLIT 


E XPOUT 


F FORM 

EFORM, FONLY, 

FILBOX 

SETWIN 

FINDGE 


FINDLE 


FONLY 

IFORM 
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Subroutine 


FRAME 

GLINE 

GRID 

HLABEL 

HSTRIN 

IBASEC 

IBASEX 

IBASEY 

I FORM 

lOTHER 

lUBGC 

OUSTER 

KEYSET 

LABEL 

leap 

LOCGE 

LOCLE 

LOGTIX 

LOPTIM 

LWIDTH 

MNMX 

MONPOS 

NOTATE 

NUMSET 


Calls 

IBASEX, IBASEY 
IBASEY 

IBASEX, IBASEY, LOGTIX 

HLABEL 


IBASEX, IBASEY 


ALFSET, IBASEC, IBASEX, lOTHER, OUSTER, MONPOS, 
NOTATE, NUMSET, OUBGC, REMLAB, USESET 


IBASEY 

COMSET, FINDGE, IBASEC, ROUNDD, ROUNDU 

COMSET, ROUNDD 

CMNMX, IBASEC, UMNMX 

GLINE, lUBGC, YMDYD 

HLABEL 

EXPOUT, FFORM, I FORM 
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Subroutine 


Calls 


OPTIM 

OUBGC 

PLACE 

REMLAB 

RESCOM 

RGCHEK 

ROUNDD 

ROUNDU 

S AVCOM 

SETWIN 

SOFTEK 

SPREAD 

SYMOUT 

TEKSYM 

TSET 

TSET2 

TYPCK 

UNLINE 

UMNMX 

UPOINT 

USERS 

USESET 

WIDTH 

YDYMD 

YMDYD 


COPTIM, LOPTIM 
LOCLE 

COMSET, IBASEX, IBASEY 

ALFSET, EXPOUT, IBASEX, IFORM, JUSTER, NOTATE, 
OUBGC, YDYMD 

COMGET, COMSET, IBASEC, MNMX 


IBASEX, IBASEY 

COMSET, IBASEY 
SOFTEK, TEKSYM 

COMSET, lOTHER, TSET2 

COMSET, IBASEC 


COMSET, LWIDTH 

LEAP 

LEAP 
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Subroutines Which Retain History 


The following list shows variables within the code which 
retain the original values through subsequent executions. 


SUBROUTINE 


VARIABLES 


BAR IHALF 

ISYMB 

IVRHOR 

LSPACE 

MAXX 

MAXY 

MINX 

MINY 

N 

NBASE 


CALCON 


FNODAY 

IWEEKl 


CALPNT 


ICLTYP 

ISTPER 

ISTYR 

IWEEKl NO DAYS 


DAT6ET OLDONE 

TEKSYM AMULT 

IFULL 

IHALF 

ITEM 

TX 

Jy arrays 

MEMORY 

ROD 



APPENDIX C SYSTEM FLOWCHART 
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APPENDIX D 


USASCII CODE FUNCTIONS 


LOWX 

GRAPHIC INPUT 


LOW Y 

GRAPHIC INPUT 


96 



p 

112 

q 

113 

r 

114 

s 

115 

t 

116 

u 

117 

V 

118 

w 

119 

X 

120 

y 

121 

z 

122 

A 

123 

1 

1 

124 

125 

} 


126 

127 

RUBOUT 

(DEL) 


♦ CHAR IS PRECEDED BY ESC 
CHAR TO PERFORM FUNCTION 


GRAPHIC 

INPUT 


PRINT IN 
UPPER CASE 
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SUBROUTINE AND FUNCTION INDEX 


ALFSET (FNUM, IWIDTH, LABTYP, lARRAY) 

BINITT 

BSYMS (X, Y, ISYM) 

CALCON (AMIN, AMAX, LABTYP, GET) 

CALPNT (ARRAY, I) 

CHECK 

CMNMX (ARRAY, AMIN, AMAX) 

COPTIM (NBASE) 

CPLOT (XARRAY, YARRAY) 

DATGET(ARR, I, KEY) 

EFORM (FNUMBER, IWIDTH, IDECIMAL, lARRAY, IFILL) 
ERREC (I) 

' ESPLIT (FNUMBER, IWIDTH, IDECIMAL, lEXPON) 
EXPOUT (NBASE, lEXP, lARRAY, LENGTH, IFILL) 
FFORM (FNUMBER, IWIDTH, IDECIMAL, lARRAY, IFILL) 
FINDGE (VALUE, TABLE, POINT) 

FINDLE (VALUE, TABLE, POINT) 

FONLY (FNUMBER, IWIDTH, IDECIMAL, lARRAY, IFILL) 
GLINE (NBASE, DATAPT, SPOS) 

GRID 

IFORM (FNUMBER, IWIDTH, lARRAY, IFILL) 
lOTHER (NBASE) 

JUSTER (LENGTH, ISTRING, KEVIPOSITION, 
IFILL_CHARACTER, LEN, lOFFSET) 

KEYSET (ARRAY, KEY) 

LABEL (NBASE) 

LEAP (YEAR) 

LOCGE (IVALUE, ITABLE, IPOINT) 

LOCLE (IVALUE, ITABLE, IPOINT) 

LOGTIX (NBASE, START, TINTVL, MSTART, MEND) 
LOPTIM (NBASE) 

LWIDTH (NBASE) 

MNMX (ARRAY, AMIN, AMAX) 

MONPOS (NBASE, IY1, DPOS, SPOS) 

NOTATE (IX, lY, LENCHAR, ISTRIN) 

NUMSET (FNUMBER, IWIDTH, NBASE, lARRAY, IFILL) 
REMLAB (NBASE, ILOC, LABTYP, IRX, IRY) 

RGCHEK (NBASE, ARRAY) 

ROUNDD (VALUE, FINTERVAL) 

ROUNDU (VALUE, FINTERVAL) 


10-2, 10-5 
13-5 

13-27, 13-29 
12-5, 12-6 

12- 3, 12-4 

13- 5, 13-9 

12- 8,12-9 

8- 6, 8-7 

9- 2, 9-3, 13-4, 

13- 23, 13-24 

9- 8, 13-6, 13-25 

10 - 1 

7- 1 

10-2, 10-7 

10- 2, 13-17 thru 13-21 
10-1 

11 - 2 

11- 3 

10-1, 10-6 

9- 10 

13-12, 13-13 

10- 1, 10-12, 10-13 

11 - 8 

10- 8, 10-14 
9-6 

9-5, 13-7, 13-8, 13-26 

12 - 10 

11- 4 

11- 5LOGTIX 

9- 9 

8- 8, 8-9, 13-14, 13-15 
7-4 

13-10 

12- 7 

10- 9, 10-10, 10-15, 10-16 
10-1 

10- 11, 10-15 
7-3 

11 - 6 
11-7 
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SOFTEK (ISYM) 

14-11 

SPREAD (NBASE) 

7-5 

TEKSYM (ISYM) 

9-7 

TSET (NBASE) 

7-6 

TSET2 (NEWLOC, NFAR, NLEN, NFRM, KSTART, KEND) 

7-7 

TYPCK (NBASE, ARRAY) 

7-2, 13-9 

ULINE (X, Y, 1) 

14-6 

UMNMX (ARRAY, AMIN, AMAX) 

14-3 

UPOINT (ARRAY, 1, OLDONE) 

14-4 

USERS(X, Y, ISYM) 

14-8 

USESET (FNUM, IWIDTH, NBASE, LABELI) 

10-2, 14-9 



SUBJECT INDEX 


Alphanumeric Labeling 

10-5 

Base Finding 

11-8 

Calendar Data 

12-3, 12-8, 12-9 

Calendar Conversions 

12-1, 12-2, 12-5, 12-6 

Character String Placement & Printing 

10-8, 10-9, 10-10 

COMMON 


Table Reference 

Section 5 

Curved Plotting 

9-2, 9-3 

Data Obtaining 

9-8 

Data Range Checking 

7-3 

Data Type Checking 

7-2 

Display Group 

6-4, 6-5 

Error Recovery 

7-1 

Exponent Finding 

10-7 

Floating Point Conversion 

10-6 

Key Setting 

9-6 

Label Drawing 

9-4, 9-5 

Labels with Special Characters 

10-12 thru 10-16 

Label Positioning 

7-5 

Leap Year Update 

12-10 

Linear Label Computing 

7-4 

Logarithmic Tic Mark Drawing 

9-9 

Maximum Floating Point Value Finding 

11-2 

Maximum Integer Value Finding 

11-4 

Minimum Floating Point Value Finding 

11-3 

Minimum Integer Value Finding 

11-5 

Monthly Tic Mark and Grid Drawing 

9-10 

Month Positioning 

12-7 

Neat Tic Mark Intervals 

8-4, 8-5 

Optimum Calendar Tic Mark Setting 

8-2, 8-7 

Optimum Linear or Logarithmic Tic Marks 

8-8, 8-9 

Pruning 

Section 13 

Remote Labeling 

10-11 

Round Down 

11-6 

Round Up 

11-7 

String Handling and Labeling 

10-1 

String Set UP 

10-1 thru 10-4 

System Description 

6-1 

Table Checking 

Section 6 

TEK Symbol Drawing 

9-7 
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Tic Mark Density 
Tic Mark Setting 
User Routines 


8-2, 8-3 
7-6, 7-7 
Section 14 


14 
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